#define f(P,Q,R)for(l=1,r=n;l,r--)f(a[l]+a[r]<=0?r-=a[l++]==-a[r]:r--,==,0); }