var
a,t:string;
b:array[1..100]of string;
i,k,min,max:integer;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
min:=length(b[1]);
max:=length(b[1]);
for i:=1 to k do
begin
if length(b[i])>max then max:=length(b[i]);
if length(b[i])<min then min:=length(b[i]);
end;
writeln('max=',max);
writeln('min=',min);
readln;
end.