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 / t1.eul < prev    next >
Text File  |  2001-06-06  |  89b  |  6 lines
  1. begin new x; new s;
  2.  s <- (2, 'begin x<- x+1; s[x] end', 'out x');
  3.  x <- s[1];
  4.  s[x]
  5. end
  6.