var s:string; i,j,m1,m2:integer; begin readln(s); m2:=0; m1:=0; for i:=1 to length(s) do begin if s[i]=' ' then begin for j:=i to length(s) do if s[j]=' ' then begin if (j-i)>(m2-m1) then begin m1:=i; m2:=j; end; end; end; end; for i:=m1+1 to m2-1 do write(s[i]); write(' ',m2-m1-1); end.