import Control.Applicative
import Data.Char

alphabet :: String
alphabet = ['a'..'z']

search :: String -> Char -> String
search str c = [c] ++ " : " ++ show (length (filter (== c) str))

solver :: String -> [String]
solver str = map (search str) alphabet

main :: IO()
main = do
  str <- map toLower . unwords . lines <$> getContents
  mapM_ putStrLn $ solver str