How to find the frequency of characters in a string in Haskell?

Question

How can I count the frequency of characters in a string and then output them in sort of a table?

For example, if I input the word \"happy\" the result would be

Answer 1

func xs = map (\a -> (head a, length a)) $ group $ sort xs