val i = ref 1;

while !i <= 10 do (
  print (Int.toString(!i));
  print (" ");
  i: = !i + 1;
);