comp.lang.forth thread.
You need no control structures to implement FizzBuzz.
: fizz 1+ ." fizz " ; : buzz 1+ ." buzz " ; : fizzbuzz 1+ ." fizzbuzz " ; : n 1+ dup . ; : bange n n fizz n buzz fizz n n fizz buzz ; : bang bange n fizz n n fizzbuzz ; 0 bang bang bang bang bang bang bange drop cr bye