ll@N,@K,@H[N],@(X,Y)[N];wt(N-sum[ll][i,0,N](OR[j,0,N](H[j]>H[i]&&(X[j]-X[i])**2+(Y[j]-Y[i])**2<=K**2)));