FizzBuzzBazz.hs

import Data.Monoid ((<>))
import Data.Maybe (fromMaybe)

makeXzzer :: Int -> String -> (Int -> Maybe String)
makeXzzer deviser msg = 
  \x -> if x `mod` deviser == 0 
    then Just msg
    else Nothing

fizzer :: Int -> Maybe String
fizzer x = makeXzzer 3 "fizz" x

buzzer :: Int -> Maybe String
buzzer x = makeXzzer 5 "buzz" x

bazzer :: Int -> Maybe String
bazzer x = makeXzzer 7 "bazz" x

fizzBuzzBazz :: Int -> String
fizzBuzzBazz x = fromMaybe (show x) $ 
  fizzer x <> 
  buzzer x <> 
  bazzer x

-- IO

main = mapM_ (putStrLn . fizzBuzzBazz) [1..105]