A practice for gforth (fizzbuzz question)

fizzbuzz.4th

: SEQ ( nx ny -- nx ... ny )
    SWAP OVER OVER
    < IF
        BEGIN
            OVER 1 + SWAP
            OVER OVER >=
        UNTIL
        DROP
    ELSE
        BEGIN
            OVER 1 - SWAP
            OVER OVER <=
        UNTIL
        DROP
    ENDIF
;

: FIZZBUZZ ( n -- )
    DUP DUP
    3 MOD 0 = SWAP
    5 MOD 0 = SWAP
    OVER OVER
    IF ." Fizz" ENDIF
    IF ." Buzz" ENDIF 
    + 0 = 
    IF DUP .
    ELSE SPACE 
    ENDIF
    DROP
;

: EACH ( n1 xt -- ? )
    BEGIN
        ['] SWAP CATCH 
        0 =
    WHILE
        OVER EXECUTE
    REPEAT
;

1 100 SEQ
:NONAME FIZZBUZZ ; EACH
CR

BYE