main :: IO ()
main = getLine >>= mapM_ putStrLn . fizzBuzz . read

fizzBuzz :: Integer -> [String]
fizzBuzz n = map fizzBuzzNumber [1..n]

fizzBuzzNumber :: Integer -> String
fizzBuzzNumber x
    | x `mod` 15 == 0 = "FizzBuzz"
    | x `mod` 3 == 0 = "Fizz"
    | x `mod` 5 == 0 = "Buzz"
    | otherwise = show x