{-# LANGUAGE MultiWayIf #-} main = do n <- readLn mapM_ putStrLn $ map (\x -> if | x `mod` 15 == 0 -> "FizzBuzz" | x `mod` 3 == 0 -> "Fizz" | x `mod` 5 == 0 -> "Buzz" | otherwise -> show x) [1..n]