import Data.Char

countAlphString :: String -> [String]
countAlphString str = [(c : " : ") ++ (show . length $ filter (==c) str) | c <- ['a' .. 'z']]

main :: IO ()
main = do
  x <- getContents
  mapM_ putStrLn $ countAlphString $ map toLower x