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