The code for a Haskell FizzBuzz program

main.hs

main :: IO ()
main = putStrLn $ unlines fizzbuzz

fizzbuzz :: [String]
fizzbuzz = [if x `dividable` 3
              then if x `dividable` 5
                      then "Fizzbuzz"
                      else "Fizz"
              else "Buzz"
            | x <- [1..100], x `dividable` 5 || x `dividable` 3]

dividable :: Int -> Int -> Bool
dividable lop rop = (lop `mod` rop) == 0