home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / packs / euler / t3.eul < prev    next >
Text File  |  2001-06-06  |  129b  |  9 lines
  1. begin new p; new n; new f;
  2.  n<-0;
  3.  p<-'begin n<-n+1; if n < 100 then p else p<-f(n) end';
  4.  f<-'formal x; x';
  5.  out p;
  6.  out p
  7. end
  8.  
  9.