sig
type from_uni_list =
U_nil
| U_single of (int * int)
| U_double of (int * int * int * int)
| U_array of int array
val get_to_unicode : string -> int array
val get_from_unicode : string -> Netmappings.from_uni_list array
val lock : unit -> unit
val unlock : unit -> unit
end