Prints the first 100 fizzbuzz numbers, implemented in Haskell.

fizzbuzz.hs

fizz n = n `mod` 3 == 0
buzz n = n `mod` 5 == 0

fizzbuzzFor n | fizz n && buzz n = "fizzbuzz"
              | fizz n = "fizz"
              | buzz n = "buzz"
              | otherwise = show n

main = mapM_ (putStrLn . fizzbuzzFor) [1..100]