let in let type z = array of int var y := new z [10] of 0 in for x := 0 to 10 do (y[x] := x ; break) end ; 1 end