RosettaCodeData/Task/Loops-Do-while/F-Sharp/loops-do-while-1.fs

let rec loop n =
  printfn "%d " n
  if (n+1)%6 > 0 then loop (n+1)
loop 0