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