var
a,b:array[1..100] of longint;
i,j,k,max,ans:longint;
beginwhilenot eoln dobegin
inc(k);
read(a[k]);
end;
for i:=2to k dofor j:=1to i-1doif (a[j]>a[i])and(b[j]+1>b[i]) thenbegin
b[i]:=b[j]+1;
if b[i]>max then max:=b[i];
end;
fillchar(b,sizeof(b),0);
for i:=2to k dofor j:=1to i-1doif (a[j]<a[i])and(b[j]+1>b[i]) thenbegin
b[i]:=b[j]+1;
if b[i]>ans then ans:=b[i];
end;
writeln(max+1);
writeln(ans+1);
end.