import Data.Char
main :: IO ()
main = do
  sentence <- fmap (map toLower) getContents
  mapM_ putStrLn $ countChars sentence where
    countChars str =
      [c : " : " ++ show (sum
        [1 | c' <- str , c' == c]) | c <- ['a'..'z']]