import Control.Monad
main = do
  num <- readLn
  fizzBuzz num
  
fizzBuzz num = do
  forM_ [1 .. num] $ \i -> do -- 1から入力内容までループ
    putStrLn (toFizzBuzz i (show i))

toFizzBuzz num str =
  if mod num 15 == 0 then "FizzBuzz"
  else if mod num 5 == 0 then "Buzz"
  else if mod num 3 == 0 then "Fizz"
  else str