external setlocale : string -> unit = "caml_setlocale"
external get_enc : unit -> string = "get_enc"