・6日目のFizzBuzz main = loop 1 100loop n limit | n > limit = return () | otherwise = do putStrLn(fizzBuzz n) loop (n + 1) limitfizzBuzz x | x `mod` 15 == 0 = "FizzBuzz" | x `mod` 5 == 0 = "Buzz" | x `mod` 3 == 0 = "Fizz" | otherwise = sho…