import qualified Data.Map as Map

frequencies = Map.toList . foldr (flip (Map.insertWith (+)) 1) Map.empty

main = print $ frequencies "huipizdadjigurda"