gistfile1.hs

import Control.Monad
import Data.Maybe

joinMaybe [] = Nothing
joinMaybe xs = Just $ join xs

fizzbuzz b = fromMaybe (show b) 
           . joinMaybe 
           . concatMap (\f -> f b) 
           $ [aux "fizz" 3, aux "buzz" 5]
    where aux s a i = guard ((i `mod` a) == 0) >> return s