clear 100 [1,b] [
    dup number>string write bl
    {
        { [ dup 15 mod 0 = ] [ drop "fizzbuzz" print ] }
        { [ dup 5 mod 0 = ] [ drop "buzz" print ] }
        { [ dup 3 mod 0 = ] [ drop "fizz" print ] }
        [ nl drop ]
    } cond
] each