fizzbuzz2.hs

max = 100
main = do fizzbuzz 1

fizzbuzz :: Int -> IO()
fizzbuzz n | n == max  = putStrLn $ _fizzbuzz (n)
           | otherwise = do putStrLn $ _fizzbuzz n
                            fizzbuzz (n+1)
  where 
    _fizzbuzz :: Int -> String
    _fizzbuzz x | x `mod` 15 == 0 = "FizzBuzz"
                | x `mod` 5  == 0 = "Buzz"
                | x `mod` 3  == 0 = "Fizz"
                | otherwise = show x