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