Well, welcome to high-level programming count = take 10 . map head . reverse . sortBy (comparing length) . group . sort . words That's ignoring Unicode rule

Well, welcome to high-level programming count = take 10 . map head . reverse . sortBy (comparing length) . group . sort . words That's ignoring Unicode rules for word splitting of course