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