... to my C, its a cakewalk to read ... : fizz? ( n -- fl ) 3 MOD 0= DUP IF ." Fizz" THEN ; : buzz? ( n -- fl ) 5 MOD 0= DUP IF ." Buzz" THEN ; : ?.number ( n fl1 fl2 -- fl1 fl2 ) 2DUP R OR 0= IF 2 .R THEN ; : .FizzBuzz-WS ( fl1 fl2 -- ) AND IF CR ELSE SPACE THEN ; : .FizzBuzz ( n -- ) DUP fizz? OVER buzz? ?.number .FizzBuzz-WS ; : bang1 ( -- ) 101 1 DO I .FizzBuzz LOOP ;

...? ( n -- fl ) 3 MOD 0= DUP IF ." Fizz" THEN ; : buzz? ( n -- fl ) 5 MOD 0= DUP IF ." Buzz" THEN ; : ?.number ( n fl1 fl2 -- fl1 fl2 ) 2DUP R OR 0= IF 2 .R THEN ; : .FizzBuzz-WS ( fl1 fl2 -- ) AND IF CR ELSE SPACE THEN ; : .FizzBuzz-item ( n -- ) DUP fizz? OVER buzz? ?.number .FizzBuzz-WS ; : bang1 ( -- ) 101 1 DO I .FizzBuzz-item LOOP ; CR CR .( bang1 ) CR bang1 CR CR

... is that when I tried, I found it was easy to make the pretty printing as a separate factor: : fizz? ( n -- fl ) 3 MOD 0= DUP IF ." Fizz" THEN ; : buzz? ( n -- fl ) 5 MOD 0= DUP IF ." Buzz" THEN ; : ?.fizzbuzz-WS ( fl1 fl2 -- fl1 fl2 ) 2DUP AND IF CR ELSE 2DUP OR IF SPACE THEN THEN ; : bang1 ( -- ) 101 1 DO I fizz? I buzz? ?.fizzbuzz-WS OR 0= IF I . THEN LOOP ;

...cause a performance hit, only a very slight compile- time hit. Wil Baden made his THENS command which palliates it. Somehow I never noticed until now that you can get a similar result with multiple BEGINs. : bang1 0 BEGIN BEGIN 1+ cr dup 3 mod DUP 0= if ." Fizz" then over 5 mod dup 0= if ." Buzz" then or 0= UNTIL dup . dup 100 UNTIL...

... cause a performance hit, only a very slight compile- time hit. Wil Baden made his THENS command which palliates it. Somehow I never noticed until now that you can get a similar result with multiple BEGINs. : bang1 0 BEGIN BEGIN 1+ cr dup 3 mod DUP 0= if ." Fizz" then over 5 mod dup 0= if ." Buzz" then or 0= UNTIL dup . dup 100 UNTIL ; I certainly don't...