proc code_pays { code } {
  set code [string toupper $code]
  switch $code {
    "AD" { return "Andorre" }
    "AE" { return "Émirats Arabes Unis" }
    "AF" { return "Afghanistan" }
    "AG" { return "Antigua et Barbuda" }
    "AI" { return "Anguilla" }
    "AL" { return "Albanie" }
    "AM" { return "Arménie" }
    "AN" { return "Antilles Néerlandaises" }
    "AO" { return "Angola" }
    "AQ" { return "Antarctique" }
    "AR" { return "Argentine" }
    "AS" { return "Samoa Américaines" }
    "AT" { return "Autriche" }
    "AU" { return "Australie" }
    "AW" { return "Aruba" }
    "AZ" { return "Azerbaïdjan" }
    "BA" { return "Bosnie-Herzégovine" }
    "BB" { return "Barbades" }
    "BD" { return "Bangladesh" }
    "BE" { return "Belgique" }
    "BF" { return "Burkina Faso" }
    "BG" { return "Bulgarie" }
    "BH" { return "Bahreïn" }
    "BI" { return "Burundi" }
    "BJ" { return "Bénin" }
    "BM" { return "Bermudes" }
    "BN" { return "Émirat de Brunei" }
    "BO" { return "Bolivie" }
    "BR" { return "Brésil" }
    "BS" { return "Bahamas" }
    "BT" { return "Bhoutan" }
    "BV" { return "Île Bouvet" }
    "BW" { return "Botswana" }
    "BY" { return "Biélorussie (Belarus'" }
    "BZ" { return "Bélize" }
    "CA" { return "Canada" }
    "CC" { return "Îles Cocos" }
    "CF" { return "République Centre Africaine" }
    "CG" { return "Congo" }
    "CH" { return "Suisse" }
    "CI" { return "Côte d'Ivoire" }
    "CK" { return "Îles Cook" }
    "CL" { return "Chili" }
    "CM" { return "Cameroun" }
    "CN" { return "République Populaire de Chine" }
    "CO" { return "Colombie" }
    "CR" { return "Costa Rica" }
    "CS" { return "Ancienne Tchécoslovaquie" }
    "CU" { return "Cuba" }
    "CV" { return "Cape Vert" }
    "CX" { return "Îles Christmas" }
    "CY" { return "Chypre" }
    "CZ" { return "République Tchèque" }
    "DE" { return "Allemagne" }
    "DJ" { return "Djibouti" }
    "DK" { return "Danemark" }
    "DM" { return "Dominique" }
    "DO" { return "République Dominicaine" }
    "DZ" { return "Algérie" }
    "EC" { return "Équateur" }
    "EE" { return "Estonie" }
    "EG" { return "Egypte" }
    "EH" { return "Sahara Occidental" }
    "ER" { return "Érythrée" }
    "ES" { return "Espagne" }
    "ET" { return "Ethiopie" }
    "FI" { return "Finlande" }
    "FJ" { return "Îles Fidji" }
    "FK" { return "Îles Falkland" }
    "FM" { return "Micronésie" }
    "FO" { return "Îles Faroe" }
    "FR" { return "France" }
    "FX" { return "France Métropolitaine" }
    "GA" { return "Gabon" }
    "GB" { return "Grande Bretagne" }
    "GD" { return "Grenade" }
    "GE" { return "Georgie" }
    "GF" { return "Guyane Française" }
    "GH" { return "Ghana" }
    "GI" { return "Gibraltar" }
    "GL" { return "Groënland" }
    "GM" { return "Gambie" }
    "GN" { return "Guinée" }
    "GP" { return "Guadeloupe" }
    "GQ" { return "Guinée Équatoriale" }
    "GR" { return "Grèce" }
    "GS" { return "Georgie du sud et Îles Sandwich" }
    "GT" { return "Guatemala" }
    "GU" { return "Guam" }
    "GW" { return "Guinée-Bissau" }
    "GY" { return "Guyane" }
    "HK" { return "Hong Kong" }
    "HM" { return "Îles Heard et McDonald" }
    "HN" { return "Honduras" }
    "HR" { return "Croatie" }
    "HT" { return "Haïti" }
    "HU" { return "Hongrie" }
    "ID" { return "Indonésie" }
    "IE" { return "Irlande" }
    "IL" { return "Israël" }
    "IN" { return "Inde" }
    "IO" { return "Territoire Britannique de l'Océan Indien" }
    "IQ" { return "Iraq" }
    "IR" { return "Iran" }
    "IS" { return "Islande" }
    "IT" { return "Italie" }
    "JM" { return "Jamaïque" }
    "JO" { return "Jordanie" }
    "JP" { return "Japon" }
    "KE" { return "Kenya" }
    "KG" { return "Kirghizistan" }
    "KH" { return "Cambodge" }
    "KI" { return "Kiribati" }
    "KM" { return "Comores" }
    "KN" { return "St. Kitts et Nevis" }
    "KP" { return "Corée du Nord" }
    "KR" { return "Corée du Sud" }
    "KW" { return "Koweït" }
    "KY" { return "Îles Caïmans" }
    "KZ" { return "Kazakhstan" }
    "LA" { return "Laös" }
    "LB" { return "Liban" }
    "LC" { return "Sainte Lucie" }
    "LI" { return "Liechtenstein" }
    "LK" { return "Sri Lanka" }
    "LR" { return "Libéria" }
    "LS" { return "Lesotho" }
    "LT" { return "Lituanie" }
    "LU" { return "Luxembourg" }
    "LV" { return "Lettonie" }
    "LY" { return "Lybie" }
    "MA" { return "Maroc" }
    "MC" { return "Monaco" }
    "MD" { return "Moldavie" }
    "MG" { return "Madagascar" }
    "MH" { return "Îles Marshall" }
    "MK" { return "Macédonie" }
    "ML" { return "Mali" }
    "MM" { return "Birmanie (Myanmar)" }
    "MN" { return "Mongolie" }
    "MO" { return "Macau" }
    "MP" { return "Îles Mariannes du Nord" }
    "MQ" { return "Martinique" }
    "MR" { return "Mauritanie" }
    "MS" { return "Montserrat" }
    "MT" { return "Malta" }
    "MU" { return "Île Maurice" }
    "MV" { return "Maldésie" }
    "MW" { return "Malawi" }
    "MX" { return "Mexique" }
    "MY" { return "Malaisie" }
    "MZ" { return "Mozambique" }
    "NA" { return "Namibie" }
    "NC" { return "Nouvelle Calédonie" }
    "NE" { return "Niger" }
    "NF" { return "Île de Norfolk" }
    "NG" { return "Nigéria" }
    "NI" { return "Nicaragua" }
    "NL" { return "Pays-Bas" }
    "NO" { return "Norvège" }
    "NP" { return "Népal" }
    "NR" { return "Nauru" }
    "NT" { return "Zone Neutre (pHEAR)" }
    "NU" { return "Niue" }
    "NZ" { return "Nouvelle Zélande" }
    "OM" { return "Oman" }
    "PA" { return "Panama" }
    "PE" { return "Perou "}
    "PF" { return "Polynésie Française" }
    "PG" { return "Papouasie Nouvelle-Guinée" }
    "PH" { return "Philippines" }
    "PK" { return "Pakistan" }
    "PL" { return "Pologne" }
    "PM" { return "Saint Pierre et Miquelon" }
    "PN" { return "Pitcairn" }
    "PR" { return "Porto Rico" }
    "PT" { return "Portugal" }
    "PW" { return "Palau" }
    "PY" { return "Paraguay" }
    "QA" { return "Qatar" }
    "RE" { return "Île de la Réunion (Île Bourbon)" }
    "RO" { return "Roumanie" }
    "RU" { return "Fédération de Russie" }
    "RW" { return "Rwanda" }
    "SA" { return "Arabie Saoudite" }
    "Sb" { return "Îles Solomon" }
    "SC" { return "Seychelles" }
    "SD" { return "Soudan" }
    "SE" { return "Suède" }
    "SG" { return "Singapour" }
    "SH" { return "St. Helène" }
    "SI" { return "Slovénie" }
    "SJ" { return "Îles Svalbard et Jan Mayen" }
    "SK" { return "Slovaquie" }
    "SL" { return "Sierra Leone" }
    "SM" { return "Saint Marin" }
    "SN" { return "Sénégal" }
    "SO" { return "Somalie" }
    "SR" { return "Surinam" }
    "ST" { return "Sao Tome et Principe" }
    "SU" { return "Ancienne U.R.S.S." }
    "SV" { return "El Salvador" }
    "SY" { return "Syrie" }
    "SZ" { return "Swaziland" }
    "TC" { return "Îles Turks et Caicos" }
    "TD" { return "Tchad" }
    "TF" { return "Terres Australes et Antarctiques (France)" }
    "TG" { return "Togo" }
    "TH" { return "Thaïlande" }
    "TJ" { return "Tadjikistan" }
    "TK" { return "Tokelau" }
    "TM" { return "Turkménistan" }
    "TN" { return "Tunisie" }
    "TO" { return "Tonga" }
    "TP" { return "Timor Oriental" }
    "TR" { return "Turquie" }
    "TT" { return "Trinidad et Tobago" }
    "TV" { return "Tuvalu" }
    "TW" { return "Taïwan" }
    "TZ" { return "Tanzanie" }
    "UA" { return "Ukraine" }
    "UG" { return "Ouganda" }
    "UK" { return "Royaume Uni" }
    "UM" { return "Territoires de l'Extérieur (U.S.A.)" }
    "US" { return "États Unis d'Amérique" }
    "UY" { return "Uruguay" }
    "UZ" { return "Ouzbékistan" }
    "VA" { return "Vatican" }
    "VC" { return "Îles St-Vincent et les Grenadines" }
    "VE" { return "Vénézuela" }
    "VG" { return "Îles Vierges Britanniques" }
    "VI" { return "Îles Vierges Américaines" }
    "VN" { return "Vietnam" }
    "VU" { return "Vanuatu" }
    "WF" { return "Îles Wallis et Futuna" }
    "WS" { return "Samoa Occidentales" }
    "YE" { return "Yemen" }
    "YT" { return "Mayotte" }
    "YU" { return "Yougoslavie" }
    "ZA" { return "Afrique du Sud" }
    "ZM" { return "Zambie" }
    "ZR" { return "République Démocratique du Congo (Zaïre)" }
    "ZW" { return "Zimbabwe" }
    "COM" { return "Internic général (Commercial)" }
    "EDU" { return "Éducation (États-Unis exclusivement)" }
    "GOV" { return "Gouvernemental (États-Unis exclusivement)" }
    "INT" { return "International (Désuet)" }
    "MIL" { return "Militaire (États-Unis exclusivement)" }
    "NET" { return "Internic général (Réseaux)" }
    "ORG" { return "Internic général (Organisations à but non-lucratif)" }
    "RPA" { return "Anciennes écoles: ARPAnet (Désuet)" }
    "ATO" { return "Nato (États-Unis exclusivement)" }
    "MED" { return "Domaine médical (États-Unis exclusivement)" }
    "ARPA" { return "Retour de DNS" }
    default { return "Inconnu" }
  }
}


# aidebot, fichier.txt ?
# aidebot fichier.cdr ?