gistfile1.lhs

import Control.Arrow
import Data.List

replace_fizzbuzz n = if n `mod` 15 /= 0 then Left n else Right "fizzbuzz"
replace_fizz n = if n `mod` 3 /= 0 then Left n else Right "fizz"
replace_buzz n = if n `mod` 5 /= 0 then Left n else Right "buzz"

fizzbuzz = replace_fizzbuzz >>> (replace_fizz ||| Right) >>>
    (replace_fizzbuzz ||| Right) >>> (show ||| returnA)

main = do
    putStrLn $ intercalate "\n" [fizzbuzz x | x <- [1..100]]