Concurrent.MakeCachemodule Key : sig ... endval create : name:string -> 'a tval lookup : 'a t -> HQ.key -> 'a optionval add : 'a t -> HQ.key -> 'a -> unitval remove : 'a t -> HQ.key -> unitval clear : 'a t -> unitval set_lru_mode : 'a t -> lru_limit:int option -> unitval with_hashqueue : ('a HQ.t -> unit) -> 'a t -> unit