let var i:int := 0 in let type aint = array of int var ar:aint := new aint[100] of (let in i:=i+1; i-1 end) in ar end end