Haskell 学习笔记-18：sequence、mapM、forever 的实现