hunk ./yjtools/Control/Monad/Tools.hs 12
+, repeatM
+, repeatM_
hunk ./yjtools/Control/Monad/Tools.hs 59
+repeatM :: Monad m => m a -> m [ a ]
+repeatM = sequence . repeat
+
+repeatM_ :: Monad m => m a -> m ()
+repeatM_ = sequence_ . repeat
+