import Control.Monad
import Data.Char

countCh str ch = length $ filter (== ch) str
countChs str = [countCh str1 ch | ch <- ['a'..'z']]
  where
    str1 = map (\ch -> if isUpper ch then toLower ch else ch) str
    
main = do
  str <- getContents
  mapM_ putStrLn $ zipWith (++) (map (\x -> x : " : ") ['a'..'z']) $ map show $ countChs str