conventional1.hs

main :: IO ()
main = do
    mapM_ fizzbuzz [1..100]
    mapM_ fizzbuzzbazz [1..120]
  where
    fizzbuzz :: Int -> IO ()
    fizzbuzz i | i `rem` 3 == 0 && i `rem` 5 == 0 = putStrLn "FizzBuzz"
               | i `rem` 5 == 0                   = putStrLn "Buzz"
               | i `rem` 3 == 0                   = putStrLn "Fizz"
               | otherwise                        = print i
        
    fizzbuzzbazz :: Int -> IO ()
    fizzbuzzbazz i | i `rem` 3 == 0 && i `rem` 5 == 0 && i `rem` 7 == 0 = putStrLn "FizzBuzzBazz"
                   |                   i `rem` 5 == 0 && i `rem` 7 == 0 = putStrLn "BuzzBazz"
                   | i `rem` 3 == 0 &&                   i `rem` 7 == 0 = putStrLn "FizzBazz"
                   | i `rem` 3 == 0 && i `rem` 5 == 0                   = putStrLn "FizzBuzz"
                   |                                     i `rem` 7 == 0 = putStrLn "Bazz"
                   |                   i `rem` 5 == 0                   = putStrLn "Buzz"
                   | i `rem` 3 == 0                                     = putStrLn "Fizz"
                   | otherwise                                          = print i

conventional2.hs

main :: IO ()
main = do
    mapM_ fizzbuzz [1..100]
    mapM_ fizzbuzzbazz [1..120]
  where
    fizzbuzz :: Int -> IO ()
    fizzbuzz i 
        | i `rem` 15 == 0 = putStrLn "FizzBuzz"   
        | i `rem` 3  == 0 = putStrLn "Fizz"       
        | i `rem` 5  == 0 = putStrLn "Buzz"       
        | otherwise       = print i
       
    fizzbuzzbazz :: Int -> IO ()
    fizzbuzzbazz i 
        | i `rem` 105 == 0 = putStrLn "FizzBuzzBazz"     
        | i `rem`  35 == 0 = putStrLn "BuzzBazz" 
        | i `rem`  21 == 0 = putStrLn "FizzBazz"         
        | i `rem`  15 == 0 = putStrLn "FizzBuzz" 
        | i `rem`   3 == 0 = putStrLn "Fizz"                            
        | i `rem`   5 == 0 = putStrLn "Buzz"                            
        | i `rem`   7 == 0 = putStrLn "Bazz"
        | otherwise        = print i