: fizzbuzz ( n -- str ) { { [ dup 15 divisor? ] [ drop "FizzBuzz" ] } { [ dup 3 divisor? ] [ drop "Fizz" ] } { [ dup 5 divisor? ] [ drop "Buzz" ] } [ number>string ] } cond ; 100 [1,b] [ fizzbuzz print ] each