RosettaCodeData/Task/Loops-Do-while/FutureBasic/loops-do-while.futurebasic

include "ConsoleWindow"

dim as long i

do
  i++
  print i
until ( i mod 6 == 0 )