fizzbuzz n = case () of
  _
    | n `mod` 3 == 0 && n `mod` 5 == 0 -> "FizzBuzz"
    | n `mod` 3 == 0 -> "Fizz"
    | n `mod` 5 == 0 -> "Buzz"
    | otherwise -> show n

main = do
  n <- readLn
  mapM_ putStrLn . map fizzbuzz $ [1..n]