FizzBuzz in Haskell (one way to do it)

fizzbuzzhaskell.hs

module Main where

import Control.Monad (forM_)
import System.Environment (getArgs)

printFizzBuzz :: Integral a => a -> IO ()
printFizzBuzz n
  | n `mod` 3 == 0 && n `mod` 5 == 0 = putStrLn "FizzBuzz"
  | n `mod` 3 == 0 = putStrLn "Fizz"
  | n `mod` 5 == 0 = putStrLn "Buzz"
  | otherwise = return ()

aToI :: String -> Int
aToI = read

main :: IO ()
main = do
  n <- getArgs >>= return . aToI . head
  forM_ [1..n] printFizzBuzz