functor (A : Basic3) ->
  sig
    val pure : 'a -> ('p, 'q, 'a) A.t
    val ap :
      ('p, 'q, 'a -> 'b) A.t ->
      (unit -> ('p, 'q, 'a) A.t) -> ('p, 'q, 'b) A.t
    val map : ('a -> 'b) -> ('p, 'q, 'a) A.t -> ('p, 'q, 'b) A.t
    val ( >|= ) : ('p, 'q, 'a) A.t -> ('a -> 'b) -> ('p, 'q, 'b) A.t
    val replace : 'a -> ('p, 'q, 'b) A.t -> ('p, 'q, 'a) A.t
    val void : ('p, 'q, 'a) A.t -> ('p, 'q, unit) A.t
    val ap' : ('p, 'q, 'a -> 'b) A.t -> ('p, 'q, 'a) A.t -> ('p, 'q, 'b) A.t
    val ( <*> ) :
      ('p, 'q, 'a -> 'b) A.t -> ('p, 'q, 'a) A.t -> ('p, 'q, 'b) A.t
    val ( <~> ) :
      ('p, 'q, 'a -> 'b) A.t ->
      (unit -> ('p, 'q, 'a) A.t) -> ('p, 'q, 'b) A.t
    val discard_left :
      ('p, 'q, 'a) A.t -> (unit -> ('p, 'q, 'b) A.t) -> ('p, 'q, 'b) A.t
    val discard_right :
      ('p, 'q, 'a) A.t -> (unit -> ('p, 'q, 'b) A.t) -> ('p, 'q, 'a) A.t
    val repeat : int -> ('p, 'q, 'a) A.t -> ('p, 'q, 'a list) A.t
    val repeat_ : int -> ('p, 'q, 'a) A.t -> ('p, 'q, unit) A.t
    val forever : ('p, 'q, 'a) A.t -> ('p, 'q, 'b) A.t
  end