{--
>>> whatify am
For 2001 Sino-Russian Treaty of Friendship:
fromList []
For ANZAC:
fromList []
For ANZUS:
fromList []
For African Union:
fromList ["C\244te d'Ivoire (Ivory Coast)","S\227o Tom\233 and Pr\237ncipe"]
For Agreement on Strategic Partnership and Mutual Support:
fromList []
For Anglo-Portuguese Alliance:
fromList []
For Arab League:
fromList []
For Association of South-East Asian Nations:
fromList []
For Axis of Resistance:
fromList []
For BALTRON:
fromList []
For Caribbean Community|Caribbean Community (CARICOM):
fromList []
For Collective Security Treaty Organization:
fromList []
For Economic Community of Central African States:
fromList []
For Economic Community of West African States:
fromList []
For Entente Cordiale:
fromList []
For European Union:
fromList []
For Five Eyes:
fromList []
For Five Power Defence Arrangements:
fromList []
For Forum for the Progress and Development of South America:
fromList []
For Franco-German Brigade:
fromList []
For GUAM Organization for Democracy and Economic Development:
fromList []
For International Association of Gendarmeries and Police Forces with Military Status:
fromList []
For International Maritime Security Construct:
fromList []
For Islamic Military Alliance:
fromList []
For Major non-NATO Ally:
fromList []
For Moroccan-American Treaty of Friendship:
fromList []
For Mutual Defense Treaty (United States-Philippines):
fromList []
For Mutual Defense Treaty (United States-South Korea):
fromList []
For North American Aerospace Defense Command:
fromList []
For North Atlantic Treaty Organization:
fromList []
For Organization of American States:
fromList []
For Organization of the Eurasian Law Enforcement Agencies with Military Status:
fromList []
For Pakistan-United States military relations:
fromList []
For Peninsula Shield Force:
fromList []
For Rio Pact:
fromList []
For Russia-Syria-Iran-Iraq Coalition|RSII Coalition:
fromList []
For Shanghai Cooperation Organisation:
fromList []
For Sino-North Korean Mutual Aid and Cooperation Friendship Treaty:
fromList []
For South Atlantic Peace and Cooperation Zone:
fromList []
For Treaty of Mutual Cooperation and Security between the United States and Japan:
fromList []
For U.S.-Afghanistan Strategic Partnership Agreement:
fromList []
For US-Israel Strategic Partnership:
fromList []
For Union State:
fromList []
For Union of South American Nations:
fromList []
For United Nations:
fromList []

... so it's a rare issue, not a profligate one. Let's examine the cases, and
see how the countries are represented in the graph-store.

match (n:Continent {name: "Africa"})<-[:IN]-(c:Country) return c.name

São Tomé and Príncipe
Côte d'Ivoire (Ivory Coast)

Okay, the what? :<

Shuckaroos! I'm just going to drop those two countries.
--}

cleanify :: AllianceMap -> AllianceMap
cleanify = Map.fromList . map (second allu) . Map.toList

al
cleanify :: AllianceMap -> AllianceMap
cleanify = Map.fromList . map (second allu) . Map.toList
cleanify = Map.fromList . map (second allu) . Map.toList