functor (M : Core.Monad.Basic2) ->
  sig
    val ( >>= ) : ('a, 'd) M.t -> ('a -> ('b, 'd) M.t) -> ('b, 'd) M.t
    val ( >>| ) : ('a, 'd) M.t -> ('a -> 'b) -> ('b, 'd) M.t
    module Monad_infix :
      sig
        val ( >>= ) : ('a, 'd) M.t -> ('a -> ('b, 'd) M.t) -> ('b, 'd) M.t
        val ( >>| ) : ('a, 'd) M.t -> ('a -> 'b) -> ('b, 'd) M.t
      end
    val bind : ('a, 'd) M.t -> ('a -> ('b, 'd) M.t) -> ('b, 'd) M.t
    val return : 'a -> ('a, 'b) M.t
    val map : ('a, 'd) M.t -> f:('a -> 'b) -> ('b, 'd) M.t
    val join : (('a, 'd) M.t, 'd) M.t -> ('a, 'd) M.t
    val ignore : ('a, 'd) M.t -> (unit, 'd) M.t
    val all : ('a, 'd) M.t list -> ('a list, 'd) M.t
    val all_ignore : (unit, 'd) M.t list -> (unit, 'd) M.t
    val map_monad : 'a list -> f:('a -> ('b, 'c) M.t) -> ('b list, 'c) M.t
    val map_monad_ignore :
      'a list -> f:('a -> (unit, 'b) M.t) -> (unit, 'b) M.t
  end