sig
  module Key : sig type 'a t = 'a Hmap.Key.t val create : unit -> 'a t end
  type t = Hmap.t
  val empty : t
  val add : t -> 'a Key.t -> 'a -> t
  val find : t -> 'a Key.t -> 'a option
  val find_all : t -> 'a Key.t -> 'a list
  val ounit_tests : unit -> OUnit.test
end