pass +mtl

pass :: MonadWriter w m => m (a, w -> w) -> m a
mtl Control.Monad.Writer.Class, mtl Control.Monad.Writer.Lazy, mtl Control.Monad.Writer.Strict