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 / t5.eul < prev    next >
Text File  |  2001-06-06  |  234b  |  10 lines
  1. begin new p; new a; new i;
  2.  p <- 'formal x; formal k;
  3.     begin k <- k+1; x<-k end';
  4.  i <- 1;
  5.  a <- list 3;
  6.  p(@a[i],@i); p('@a[i]',@i);
  7.  out a[1]; out if isu a[2] then "undef" else "~undef"; out a[3]
  8.  (* should write: 2 undef 3 *) 
  9. end
  10.