let var x := 0 type t = array of int in new t[1000000] of x;for i := 1 to 255500 do for j := 1 to 1700 do (x:=x+i+j); x+2000000000 end