let type ant = array of int var a := (new ant[5] of 0) in for x := 0 to 4 do (when x > 2 do a[x] := a[x] + 2 ) ; a end