countedLetters :: String -> Map.Map Char Int
countedLetters name = Map.fromListWith (+) [(c, 1) | c <- filter (isLetter) name]
countedLetters :: String -> Map.Map Char Int
countedLetters name = Map.fromListWith (+) [(c, 1) | c <- filter (isLetter) name]