val i = ref 1;

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