program xau;
uses crt;
var s:string;d,g:text;
procedure doc_file;
        begin
         assign(d,'xauchu.inp');
         reset(d);
         readln(d,s);
         close(d);
        end;
procedure ghi_file;
var d,i:longint;max,s1:string;
        begin
         assign(g,'xauchu.out');
         rewrite(g);
         max:='';
         s1:='';
         for i:=1 to length(s) do
                begin
                 if not(s[i]in ['0'..'9'])then s1:=s1+s[i];
                 if(s[i]in ['0'..'9'])then
                        begin
                         if(length(max)<length(s1))then max:=s1;
                         s1:='';
                        end;
                end;
         for i:=1 to length(s) do
                begin
                 if not(s[i]in ['0'..'9'])then s1:=s1+s[i];
                 if(s[i]in ['0'..'9'])then
                        begin
                         if(length(max)=length(s1))then inc(d);
                         s1:='';
                        end;
                end;
         if(d=1)then write(g,max)else write(g,max);
         close(g);
        end;
begin
 clrscr;
  doc_file;
  ghi_file;
 readln;
end.