- putStrLn $ map (fst) $ map (leastCommon) $ map (countedLetters) $ transpose message
-
-countedLetters :: String -> [(Char, Int)]
-countedLetters name = Map.toList $ Map.fromListWith (+) [(c, 1) | c <- filter (isLetter) name]
-
-mostCommon :: [(Char, Int)] -> (Char, Int)
-mostCommon = swap . maximum . map (swap)