lol.factor

: fizz? ( n -- ? )                                                                                                                                    
    3 mod 0 = ;                                                                                                                                       
                                                                                                                                                      
: buzz? ( n -- ? )                                                                                                                                    
    5 mod 0 = ;                                                                                                                                       
                                                                                                                                                      
: fizzbuzz? ( n -- ? )                                                                                                                                
    [ fizz? ] [ buzz? ] bi and ;                                                                                                                      
                                                                                                                                                      
: fizzbuzz-n ( n -- )                                                                                                                                 
    { { [ dup fizzbuzz? ] [ drop "FizzBuzz" print ] }                                                                                                 
      { [ dup fizz? ] [ drop "Fizz" print ] }                                                                                                         
      { [ dup buzz? ] [ drop "Buzz" print ] }                                                                                                         
      { [ t ] [ number>string print ] } } cond ;                                                                                                      
                                                                                                                                                      
: fizzbuzz ( -- )                                                                                                                                     
    100 [1,b] [ fizzbuzz-n ] each ;