fizzbuzz.hs

import Control.Monad

main :: IO ()
main = forM_ [1..100] $ \n -> do
         let f n = case (n `mod` 2, n `mod` 5) of
                     (0,0) -> "fizzbuzz"
                     (0,_) -> "fizz"
                     (_,0) -> "buzz"
                     _     -> show n
         putStrLn $ f n