USING: kernel io math math.ranges math.parser sequences ; IN: fizzbuzz : /by? ( x y -- x ? ) dupd mod 0 = ; : 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 ;