Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Sequence_.hs
module Prelude where sequence_ :: Monad m => [m a] -> m () sequence_ = foldr (>>) (return ())