import Control.Applicative

import Data.Char
    (toLower)

type Problem = String

type Result = [Int]

solve :: Problem -> Result

solve text
    = map (\char -> length $ filter (char ==) lower) chars where
        lower = map toLower text
        chars = ['a'..'z']

output :: [Int] -> String

output xs
    = concat $ zipWith (\x char -> [char] ++ " : " ++ show x ++ "\n") xs ['a'..'z']

input :: IO String

input
    = inputData ""

inputData :: String -> IO String

inputData text
    = do
        line <- getLine
        if last line == '.'
            then return $ text ++ line
            else inputData $ text ++ line

main :: IO ()

main
    = putStr.output =<< solve <$> input