a[20],I,J;f(x,i,j,k){for(i=0;a[i];i++)for(j=i;a[++j];)for(k=j;a[++k];)if(~x>>i&~x>>j&~x>>k&(a[i]-a[j])*(a[k]-a[j])>0&&!f(x^1<