sig
type 'a t
type 'a with_init_args
val cps_create :
f:('a Cache.Strategy.t -> 'b) -> 'b Cache.Strategy.with_init_args
val touch : 'a Cache.Strategy.t -> 'a -> 'a list
val remove : 'a Cache.Strategy.t -> 'a -> unit
val clear : 'a Cache.Strategy.t -> unit
end