The typed solution for FizzBuzz.

fizzbuzz.hs

module Main where

data FzBz = Fizz | Buzz | FizzBuzz | N Int

instance Show FzBz where
    show Fizz     = "Fizz"
    show Buzz     = "Buzz"
    show FizzBuzz = "FizzBuzz"
    show (N x)    = show x

bzzr (N x) | mod x 15 == 0 = FizzBuzz
           | mod x 3  == 0 = Fizz
           | mod x 5  == 0 = Buzz
           | otherwise     = (N x)

main = putStrLn $ unwords $ map (show . bzzr . N) [1..100]