Functor Applicative.Make

module Make: 
functor (A : Basic) -> S  with type 'a t := 'a A.t

type '_ t 

include Applicative.Basic

include Functor.S

val ap' : ('a -> 'b) t -> 'a t -> 'b t

val (<*>) : ('a -> 'b) t -> 'a t -> 'b t

val (<~>) : ('a -> 'b) t ->
       (unit -> 'a t) -> 'b t

val discard_left : 'a t -> (unit -> 'b t) -> 'b t

val discard_right : 'a t -> (unit -> 'b t) -> 'a t

val repeat : int -> 'a t -> 'a list t

val repeat_ : int -> 'a t -> unit t

val forever : 'a t -> 'b t