import Control.Monad
import Control.Applicative
import Data.Functor
import Data.List
import Data.Char

main = map toLower <$> getContents >>= \s -> return [(c : " : ") ++ show (length (filter (==c) s)) | c <- ['a'..'z']] >>= mapM_ putStrLn