functor (X : Basic2) ->
  sig
    val ( >>= ) : ('a, 'e) X.t -> ('a -> ('b, 'e) X.t) -> ('b, 'e) X.t
    val ( >>| ) : ('a, 'e) X.t -> ('a -> 'b) -> ('b, 'e) X.t
    module Monad_infix :
      sig
        val ( >>= ) : ('a, 'e) X.t -> ('a -> ('b, 'e) X.t) -> ('b, 'e) X.t
        val ( >>| ) : ('a, 'e) X.t -> ('a -> 'b) -> ('b, 'e) X.t
      end
    val bind : ('a, 'e) X.t -> ('a -> ('b, 'e) X.t) -> ('b, 'e) X.t
    val return : 'a -> ('a, 'b) X.t
    val map : ('a, 'e) X.t -> f:('a -> '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