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