{$R+}
PROGRAM CountLetters (Input,Output);

TYPE
   LetterArray = ARRAY['A'..'Z'] OF Integer;

VAR
   LetterCount : LetterArray;
   Ch, Index : Char;

BEGIN
   FOR Ch := 'A' TO 'Z' DO
      LetterCount[Ch] := 0;

   WHILE NOT EOF DO
     Begin
       Read(Ch);
       IF (Ch>='A') AND (Ch<='Z') THEN
          LetterCount[Ch] := LetterCount[Ch] + 1;

       IF (Ch>='a') AND (Ch<='z') THEN
         Begin
           Index := Chr(Ord(Ch) - 32);
           LetterCount[Index] := LetterCount[Index] + 1;
         End;
     End;

   FOR Ch := 'A' TO 'Z' DO
      Writeln(Ch,' ',LetterCount[Ch]);
END.

