Make2.1-X
type ('a, 'b) t
val (>|=) : ( 'a, 'e ) t -> ( 'a -> 'b ) -> ( 'b, 'e ) t
val monoid_product : ( 'a, 'e ) t -> ( 'b, 'e ) t -> ( 'a * 'b, 'e ) t
val (>>=) : ( 'a, 'e ) t -> ( 'a -> ( 'b, 'e ) t ) -> ( 'b, 'e ) t