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