RosettaCodeData/Task/Loops-Do-while/BASIC/loops-do-while-1.basic

a = 0
do
  a = a + 1
  print a
loop while a mod 6 <> 0