Const
 Separators=[' ',',','.','!','?',':',';'];
Var
 Count:Array['a'..'z'] Of Integer;
 c:Char;
 Max:Integer;
 MaxC:Char;
 f:File Of Char;
Begin
 For c:='a' To 'z' Do
   Count[c]:=0;
 Assign(f,'In.Txt');
 Reset(f);
 While Not Eof(f) Do
 Begin
   While Not Eof(f) Do
    Begin
      Read(f,c);
      If Not (c In Separators) Then
         Break;
    End;
    If Not (c In Separators) Then
      Inc(Count[c]);
    While Not Eof(f) Do
    Begin
      Read(f,c);
      If c In Separators Then
         Break
    End
 End;
 Close(f);
 Max:=Count['a'];
 MaxC:='a';
 For c:='a' To 'z' Do
    If (Count[c] > Max) Then
    Begin
       Max:=Count[c];
       MaxC:=c
    End;
 Assign(f,'Out.Txt');
 ReWrite(f);
 Write(f,MaxC);
 Close(f)
End.

Var
 f0,f : Text;
 St,S : String;
 i    : Byte;
 m    : Array[1..30] of Word;
function IntToStr(j: Longint): String;
var
Sa: string[11];
begin
Str(j, Sa);
IntToStr := Sa;
end;
Begin
 If ParamCount<1 then halt else Assign(f0,ParamStr(1));
 Assign(f,'!Result.txt');
 Reset(f0);
 s:=''; For i:=1 to 30 do m[i]:=0;i:=1;
 While Not EOF(f0) do
 Begin
   Readln(f0,St);
   While Length(St)>0 do
     If St[1]=' ' then Delete(St,1,1)
       else
       Begin
         If Pos(UpCase(St[1]),S)=0 then
         Begin
           S:=S+UpCase(St[1]);
           Inc(m[Length(S)]);
         End
           else Inc(m[Pos(UpCase(St[1]),S)]);
         While (St[i]<>' ') and (i<Length(St)) do Inc(i);
         Delete(St,1,i);
         i:=1;
       End;
 End;
 Close(f0);
 ReWrite(f);
 For i:=1 to Length(s) do Writeln(f,s[1]+' = '+IntToStr(m[i]));
 Close(f);
End.