add expose to monads.ml