RosettaCodeData/Task/Letter-frequency/Haskell/letter-frequency-1.hs

import Data.List (group, sort)

main :: IO ()
main = interact (show . fmap ((,) . head <*> length) . group . sort