Point-free style, monads, arrows, and a partridge in a pear tree

fizzbuzz.hs

import Control.Monad
import Control.Arrow
import Data.Monoid

import Data.List(unlines)
import System.Environment(getArgs)

fizzbuzz = uncurry (flip maybe id) . (arr show &&& arr forb)
    where tests = map ((.) (==0) . flip mod) [3,5]
          fb = map Just ["Fizz","Buzz"]
          forb = mconcat . zipWith (flip (>>)) fb . map guard . zipWith ($) tests . repeat

main = getArgs >>= putStr . unlines . flip take (map fizzbuzz [1..]) . read . head . (++["100"])