main :: IO()
main = putStrLn $ unlines $ fizzBuzz 20

fizzBuzz  :: Int -> [String]
fizzBuzz n = map test [1..n]

test :: Int -> String
test x
  | x `rem` 15 == 0 = "fizzbuzz"
  | x `rem` 3 == 0 = "fiz"
  | x `rem` 5 == 0 = "buz"
  | otherwise = show x