LET i = 0

DO
   LET i = i + 1
   PRINT i; " ";
LOOP WHILE REMAINDER(i, 6) <> 0
PRINT
END