path: root/ipl/packs/euler/t2.eul

begin new a; new r;
 a<-(1,(2,3),4);
 r<-@a[2];
 out r.[1]; out r.[2];
 r.[1] <- undef
end