runWriter package:automaton

Unwrap a writer computation as a (result, output) pair. (The inverse of writer.)
Convert a WriterT effect into an extra log output. This is the opposite of writerS.