functor (H : Hashtbl.HashedType->   sig     type elt = H.t     type t = elt tbl     val get : elt tbl -> UChar.t -> elt     val of_map : elt -> elt UMap.t -> t   end