fromTable :: Map.Map Char Char
fromTable = Map.fromList . map swap . Map.assocs $ toTable
fromTable :: Map.Map Char Char
fromTable = Map.fromList . map swap . Map.assocs $ toTable
fromTable = Map.fromList . map swap . Map.assocs $ toTable