annotationGo = do
    territories <- mapM (transMap (elistOfPoint pointGo)) ["TB", "TW"]
    return . Map.fromList $ [(c, Set.fromList t) | (c, Just t) <- zip [Black, White] territories]
annotationGo = do
    territories <- mapM (transMap (elistOfPoint pointGo)) ["TB", "TW"]
    return . Map.fromList $ [(c, Set.fromList t) | (c, Just t) <- zip [Black, White] territories]
annotationGo = do
    territories <- mapM (transMap (elistOfPoint pointGo)) ["TB", "TW"]
    return . Map.fromList $ [(c, Set.fromList t) | (c, Just t) <- zip [Black, White] territories]