T.Monad_infix
val (>>=) : ( 'a, 'e ) t -> ( 'a0 -> ( 'b, 'e0 ) t ) -> ( 'b0, 'e1 ) t
val (>>|) : ( 'a, 'e ) t -> ( 'a0 -> 'b ) -> ( 'b0, 'e0 ) t