sig
  type t
  val debug : string
  val hash : Lm_hash_sig.HashArgSig.t -> int
  val compare : Lm_hash_sig.HashArgSig.t -> Lm_hash_sig.HashArgSig.t -> int
end