var
  s,m:string;
  c:char;
begin
  s:='';m:='';
  while not eoln do begin
    read(c);if c<>' ' then s:=s+c
    else begin
      if (s[0]>m[0]) or ((s[0]=m[0]) and (s>m)) then m:=s;
      s:='';
    end;
  end;
  readln;
  if (s[0]>m[0]) or ((s[0]=m[0]) and (s>m)) then m:=s;
  writeln(m);
  readln;
end.