sig type key = [ `Hash of Digest.t | `String of string ] val hash_of_key : Cache_util.key -> string val bucket_of_hash : int -> string -> int end
