sig
type ('k, 'v) t
type 'a with_init_args
val cps_create :
f:(('a, 'c) Cache.Store.t -> 'b) -> 'b Cache.Store.with_init_args
val clear : ('k, 'v) Cache.Store.t -> unit
val replace : ('k, 'v) Cache.Store.t -> key:'k -> data:'v -> unit
val find : ('k, 'v) Cache.Store.t -> 'k -> 'v option
val data : ('a, 'v) Cache.Store.t -> 'v list
val remove : ('k, 'v) Cache.Store.t -> 'k -> unit
end