var   max, min: byte;    f: text;
s,s1,smax,smin: string;
BEGIN
assign(f, 'input.txt');    reset(f);  readln(f,s);  close(f);
assign(f,'output.txt');  rewrite(f);
s:=s+' ';
max:=0;    smax:='';
min:=255;  smin:='';
while pos('  ',s)>0 do delete(s,pos(' ',s),1);
while pos(' ' ,s)>0 do
begin
  s1:=copy(s,1,pos(' ',s)-1);  writeln(s1);
  delete  (s,1,pos(' ',s));
  if length(s1)>max then
  begin
     max:=length(s1);
    smax:=s1;
  end;
  if length(s1)<min then
  begin
     min:=length(s1);
    smin:=s1;
  end;
end;
writeln(f,smax);
writeln(f,smin);
close(f)
END.