functor (M : Monad.S->
  sig
    val return : '-> 'M.t
    val apply : ('-> 'b) M.t -> 'M.t -> 'M.t
    val map : 'M.t -> f:('-> 'b) -> 'M.t
    val map2 : 'M.t -> 'M.t -> f:('-> '-> 'c) -> 'M.t
    val map3 :
      'M.t -> 'M.t -> 'M.t -> f:('-> '-> '-> 'd) -> 'M.t
    val all : 'M.t list -> 'a list M.t
    val both : 'M.t -> 'M.t -> ('a * 'b) M.t
    module Applicative_infix :
      sig
        val ( <*> ) : ('-> 'b) M.t -> 'M.t -> 'M.t
        val ( <* ) : 'M.t -> unit M.t -> 'M.t
        val ( *> ) : unit M.t -> 'M.t -> 'M.t
      end
    val ( <*> ) : ('-> 'b) M.t -> 'M.t -> 'M.t
    val ( <* ) : 'M.t -> unit M.t -> 'M.t
    val ( *> ) : unit M.t -> 'M.t -> 'M.t
  end