RosettaCodeData/Task/Integer-sequence/OCaml/integer-sequence-1.ml

let () =
  let i = ref 0 in
  while true do
    print_int !i;
    print_newline ();
    incr i;
  done