updateCountries :: [Country] -> CountryName -> [Country]
updateCountries [] country_name     = [Country country_name 1]
updateCountries :: [Country] -> CountryName -> [Country]
updateCountries [] country_name     = [Country country_name 1]
updateCountries [] country_name     = [Country country_name 1]