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