{--
>>> unFlag exUnFlagPass
Just "China"
>>> unFlag exUnFlagFail
Nothing
--}

-- and with that --^ we can do this --v

unitedNationsParser :: FilePath -> IO Alliance
unitedNationsParser file = undefined
unitedNationsParser :: FilePath -> IO Alliance
unitedNationsParser file = undefined
unitedNationsParser file = undefined