tcql

import Control.Monad (mapM_)

fizzbuzz = [0..100] >>= \x -> return ( 
    case (x `mod` 3, x `mod` 5) of 
        (0,0) -> "FizzBuzz"; 
        (0,_) -> "Fizz"; 
        (_,0) -> "Buzz"; 
        (_,_) -> show x)

main = mapM_ putStrLn fizzbuzz