popularCountries :: Int -> [Country] -> [Country]
popularCountries n cs = take n $ (reverse . sort) cs
popularCountries :: Int -> [Country] -> [Country]
popularCountries n cs = take n $ (reverse . sort) cs
popularCountries n cs = take n $ (reverse . sort) cs