main :: IO () main=do n<-getLine putStrLn (fizzBuzz (read n)) fizzBuzz ::Int->String fizzBuzz x | x `mod` 15 == 0 = "FizzBuzz" | x `mod` 3 == 0 = "Fizz" | x `mod` 5 == 0 = "Buzz" | otherwise = show x