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 / t2.eul < prev    next >
Text File  |  2001-06-06  |  91b  |  7 lines
  1. begin new a; new r;
  2.  a<-(1,(2,3),4);
  3.  r<-@a[2];
  4.  out r.[1]; out r.[2];
  5.  r.[1] <- undef
  6. end
  7.