ll@N,@M,@A[N],j=0,x,a=0;sort(A,A+N);rep(i,N){while(j<N&&(x=2A[i]+M-2A[j])>0)j++;x==0?a+=j-i-1:a;}wt(a);