Function monadic::writer_trans::listens

pub fn listens<A, M: Bind<Item = A>, W: Clone, V, F: Fn(W) -> V>(
    wrt: WriterT<M, W>, 
    f: F
) -> WriterT<Vec<(A, V)>, W>

listens pairs the result with a projection of the log