monadic::writer_trans
pub fn listen<A, M: Bind<Item = A>, W: Clone>( wrt: WriterT<M, W>) -> WriterT<Vec<(A, W)>, W>
listen pairs the result with the log
listen