functor (X : S) ->
  sig
    type ('a, 'd) t = 'a X.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
        type ('a, 'd) t = ('a, 'd) t
        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
  end