{--
>>> countriesByContinent (Y2020.M10.D14.Solution.workingDir ++ cbc)
>>> let m = it
>>> let cm = countryMap m
>>> graphEndpoint
>>> let url = it
>>> take 2 $ relationalize cm
[Rel (Country "Afghanistan") IN (Continent "Asia"),
 Rel (Country "Albania (Shqip\235ria)") IN (Continent "Europe")]

>>> cyphIt url (relationalize cm) 
--}

continentOf :: Graph -> Country -> IO QueryResult
continentOf url countr = getGraphResponse url (query (Country countr))
continentOf :: Graph -> Country -> IO QueryResult
continentOf url countr = getGraphResponse url (query (Country countr))
continentOf url countr = getGraphResponse url (query (Country countr))