-- Character - Counting Characters

import Data.List
import Data.Char

main :: IO ()
main = do
  xs <- getContents
  let ys = group . dropWhile (/= 'a') . sort . map toLower $ xs ++ ['a' .. 'z']
  mapM_ putStrLn $ map format [(a, length x - 1) | x@(a : _) <- ys]
    where format (a, b) = (a : " : ") ++ show b

