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