import Data.Char
countChar :: [Char] -> Char -> Integer
countChar [] chr     = 0
countChar (x:xs) chr = (if (x==chr) || (x==toUpper chr) then 1 else 0) + (countChar xs chr)
main = do{
    str <- getLine;
    let{
        count = [ chr : " : " ++ (show (countChar str chr)) | chr<-['a'..'z'] ];
    };
    mapM_ putStrLn $ count;
}