RosettaCodeData/Task/Loops-Do-while/R/loops-do-while.r

i <- 0
repeat
{
   i <- i + 1
   print(i)
   if(i %% 6 == 0) break
}