FizzBuzz in Haskell

fizzbuzz.hs

import Control.Applicative

options = [(3, "Fizz"), (5, "Buzz")]

collect :: [(Integer, String)] -> Integer -> String
collect [] x = ""
collect ((divisor,string):rest) x
  | x `mod` divisor == 0    = string ++ collect rest x
  | otherwise               = collect rest x

collectWithDefault :: [(Integer, String)] -> Integer -> String
collectWithDefault options x =
  case result of
    "" -> show x
    _ -> result
  where result = collect options x

main :: IO ()
main =
  putStrLn $ unlines $ map (collectWithDefault options) [1..100]