Var
 f : Text;
 St,S : String;
Begin
 s:='';
 Assign(f,ParamStr(1));
 Reset(f);
 While NOT EOF(f) do
 Begin
   Readln(f,St);
   If Lenth(St)>S then s:=St;
 End;
 Close(f);
 Writeln(s);
End.