1 100 [a,b] [ dup 5 mod 0 = swap dup 3 mod 0 = swapd [ [ "FizzBuzz" . drop ] [ "Fizz" . drop ] if ] [ [ "Buzz" . drop ] [ . ] if ] if ] each
Done