RosettaCodeData/Task/Loops-Do-while/Picat/loops-do-while-1.picat

go =>
  N = 0,
  do
     N := N+1,
     println(N)
  while (N mod 6 != 0).