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