program onetwothree;
var
       a : array [1..26] of integer;
       i, m, j : integer;
       str : string;
begin
       readln(str);
       for i:=1 to length(str) do   
       begin
            if str [i]in ['a'..'z','A'..'Z'] then
                 a[ord(lowercase(str[i]))-ord('a')+1]:=a[ord(lowercase(str[i]))-ord('a')+1]+1;
            if str[i]='.' then break;
       end;
       m:=0;
       for i:=1 to 26 do   
            if a[i]>m then   
            begin   
                 m:=a[i];   
                 j:=i;
            end;
       writeln(chr(j+ord('a')-1),' ',m);
       readln;
end.