Haskell FizzBuzz solution using monoids. I didn't write this but I wanted to separate it from its original article for didactic reasons.

fizzbuzz.hs

{-# LANGUAGE MonadComprehensions #-}

-- From https://bmark.us/bmark/readable/060063d3dd0330

import Data.Monoid ((<>))
import Data.Maybe  (fromMaybe)
import Control.Monad (mapM_)

fizzbuzz x = fromMaybe (show x) $ [ "fizz" | x `rem` 3 == 0 ]
                               <> [ "buzz" | x `rem` 5 == 0 ]
                               <> [ "bazz" | x `rem` 7 == 0 ]

main = mapM_ putStrLn [ fizzbuzz i | i <- [1..100] ]