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