main :: IO ()
main = do
    n <- readLn :: IO Int
    mapM_ fizzbuzz [1 .. n]
    where
        fizzbuzz i
            | mod i 15 == 0 = putStrLn "FizzBuzz"
            | mod i 5 == 0 = putStrLn "Buzz"
            | mod i 3 == 0 = putStrLn "Fizz"
            | otherwise = print i