如果我们让string_one = "Apple computer Bitcoin"，那么功能链mapM_ putStrLn (sort (words string_one))会将以下列输出到屏幕：
Apple
Bitcoin
computer
我需要一个函数，它将以相同的方式输出到输出句柄，即每个字到output.txt文件中它自己的行。我尽我所能管理纯粹/动作的细微差别，但还没有解决这个问题......
mapM_ putStrLn :: [String] -> IO ()的类型声明所以我假设像hMapm_putStrLn :: Handle -> [String] -> IO ()这样的东西对于此目的是合理的，但我不确定如何编写函数定义。我希望能够使用的最终表达式应该类似于：
hMapm_putStrLn outh (sort (words string_one))