・7日目のFizzBuzz main = sequence_ [putStrLn $ fizzBuzz n | n <- [1..100]]fizzBuzz x | x `mod` 15 == 0 = "FizzBuzz" | x `mod` 5 == 0 = "Buzz" | x `mod` 3 == 0 = "Fizz" | otherwise = show x 「アクション」（「IOモナド」？）そのものをリストに…