fizzbuzz.hs

module Program () where
import Control.Monad

main :: IO ()
main = let
    a = [1..100]

    fizz = do
      s <- a
      guard $ s `mod` 3 == 0
      return s

    buzz = do
      s <- a
      guard $ s `mod` 5 == 0
      return s

  in mapM_ (\i -> do {
    putStr $ show i;
    if i `elem` fizz then putStr " Fizz" else return ();
    if i `elem` buzz then putStr " Buzz" else return ();
    putChar '\n'
  }) a