external to_string : language -> string = "ml_pango_language_to_string"