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