import Data.List
import Control.Arrow

frequencies = map (head &&& length) . group . sort

main = print $ frequencies "huipizdadjigurda"