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