{--
>>> seedAllianceMap (dear ++ moderns) (euDir ++ eu)
...
>>> let am = it
>>> Map.size am
43
--}

unDir :: FilePath
unDir = "Y2020/M11/D09/"
unDir :: FilePath
unDir = "Y2020/M11/D09/"
unDir = "Y2020/M11/D09/"