functor (X : Basic2->
  sig
    val ( >>= ) : ('a, 'e) X.t -> ('-> ('b, 'e) X.t) -> ('b, 'e) X.t
    val ( >>| ) : ('a, 'e) X.t -> ('-> 'b) -> ('b, 'e) X.t
    module Monad_infix :
      sig
        val ( >>= ) : ('a, 'e) X.t -> ('-> ('b, 'e) X.t) -> ('b, 'e) X.t
        val ( >>| ) : ('a, 'e) X.t -> ('-> 'b) -> ('b, 'e) X.t
      end
    val bind : ('a, 'e) X.t -> ('-> ('b, 'e) X.t) -> ('b, 'e) X.t
    val return : '-> ('a, 'b) X.t
    val map : ('a, 'e) X.t -> f:('-> 'b) -> ('b, 'e) X.t
    val join : (('a, 'e) X.t, 'e) X.t -> ('a, 'e) X.t
    val ignore_m : ('a, 'e) X.t -> (unit, 'e) X.t
    val all : ('a, 'e) X.t list -> ('a list, 'e) X.t
    val all_ignore : (unit, 'e) X.t list -> (unit, 'e) X.t
  end