#81 clean Monad: done