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:a+=j-i-1;}wt(a);