let type x = array of int var x : x := new x[10] of 1 in for i:=1 to 9 do x[i] := 9 - i; x[x[x[x[x[x[7]]]]]] end