Main.hs

fizzbuzz:: [Int] -> String
fizzbuzz  xs = f xs ""
    where
        f []     s = s
        f (y:ys) s = f ys (s++show(fizzbuzzfunc y)++footer)

fizzbuzzfunc x = header x ++ fizz x ++ buzz x
header x = show(x) ++ ": "
fizz x | mod x 3 == 0 = "fizz"
       | otherwise    = ""
buzz x | mod x 5 == 0 = "buzz"
       | otherwise    = ""
footer = "\n"

test:: [String]->IO()
test []     = putStrLn ""
test (x:xs) = putStrLn(x)>>= \_ -> 
                test(xs)

main = do
    putStrLn "fizzbuzz in Haskell"
    putStr $ fizzbuzz [1..30]
    test ["a","b","c"]