FizzBuzz in Haskell
main = mapM_ (putStrLn . fizzbuzz) [1..20]
fizzbuzz x
| x `mod` 15 == 0 = "FizzBuzz"
| x `mod` 3 == 0 = "Fizz"
| x `mod` 5 == 0 = "Buzz"
| otherwise = show x
-- taken from https://www.rosettacode.org/wiki/FizzBuzz#HaskellINFO