8.3 I/O アクションどうしをまとめる main = do putStrLn "Hello, what's your name?" name <- getLine putStrLn $ "Zis is your future: " ++ tellFortune name 8.1と説明が重複するところがあるが、もう一度書く。 上のコードでは、getLineが副作用を扱っ…