import Data.Char
import Data.List
import Control.Applicative
main = do
  txt<- map toLower <$> getContents
  putStr $ unlines $ zipWith (\c x -> [c]++" : "++show x) ['a'..'z'] (map (\c-> length $ filter (== c) txt)  ['a'..'z'])