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