USING: kernel math math.parser io sequences ;

20 [
  1 + dup dup number>string write ":" write
  3 mod 0 =
  swap 5 mod 0 =
  2dup swap
  [ "Fizz" write ] [ ] if
  [ "Buzz" write ] [ ] if
  or not [ "hoge" write ] [ ] if
  nl
] each