#define Z(C,D,P)for(R=0,l=1,h=N;l)Z((v[l]+v[h]==0?R++|h--:1,l++),h--,<=)}