RosettaCodeData/Task/Loops-Do-while/OCaml/loops-do-while-1.ml

let rec loop i =
  let i = succ i in
  Printf.printf "%d\n" i;
  if i mod 6 <> 0 then
    loop i
  in
  loop 0