MAKER.1-M
type 'a t
val return : 'a -> 'a t
val bind : 'a t -> ( 'a -> 'b t ) -> 'b t
val catch : ( unit -> 'a t ) -> ( exn -> 'a t ) -> 'a t