sig
  type 'a t
  val create : unit -> 'a CCHet.Key.t
  val equal : 'a CCHet.Key.t -> 'a CCHet.Key.t -> bool
end