begin new p; new a; new i;
 p <- 'formal x; formal k;
	begin k <- k+1; x<-k end';
 i <- 1;
 a <- list 3;
 p(@a[i],@i); p('@a[i]',@i);
 out a[1]; out if isu a[2] then "undef" else "~undef"; out a[3]
 (* should write: 2 undef 3 *) 
end
