a=0
REPEAT
    INCR a
    PRINT a
UNTIL  MOD(a,6)  == 0