monads.ml tweak