let type ant = array of int var a := new ant[5] of 0 var x := 0 in while x < 3 do ( a[x] := 1 ; x := x + 1 ) ; a end