let type t=array of int var x:=new t[3] of 1 in x[1] end