FizzBuzz

-- FizzBuzz
-- https://en.wikipedia.org/wiki/Fizz_buzz

fizzbuzz :: Int -> [Char]
fizzbuzz n
  | mod n 15 == 0 = "fizz buzz"
  | mod n 5 == 0 = "buzz"
  | mod n 3 == 0 = "fizz"
  | otherwise = (show n)

main = print $ map fizzbuzz [1..100]