main = putStrLn $ unlines $ map fb [1..]
fb n
  | f && b = "FizzBuzz"
  | f = "Fizz"
  | b = "Buzz"
  | otherwise = show n
  where
    f = mod n 3 == 0
    b = mod n 5 == 0