sig type t val of_map : int -> int Main.Type.UMap.t -> Main.Type.UCharTbl.Bits.t val get : Main.Type.UCharTbl.Bits.t -> Main.Type.UChar.t -> int end