ll@x,@y,a[]{x-1,y,2x,2y},s=0;s=cntPrime(a[0..3])-s;wt(s);