: fizzbuzz ( -- ) 100 [1,b] [ 15 /by? [ "fizzbuzz" print drop ] [ 5 /by? [ "buzz" print drop ] [ 3 /by? [ "fizz" print drop ] [ number>string print ] if ] if ] if ] each ;