class unif:
  def __init__(self,n):
    self.pare=[-1]*n
    self.size=[1]*n
  def root(self,x):
    while self.pare[x]!=-1:
      x=self.pare[x]
    return x
  def unite(self,u,v):
    rootu=self.root(u)
    rootv=self.root(v)
    if rootu!=rootv:
      if self.size[rootu]>=self.size[rootv]:
        self.pare[rootv]=rootu
        self.size[rootu]+=self.size[rootv]
      else:
        self.pare[rootu]=rootv
        self.size[rootv]+=self.size[rootu]
  def same(self,s,t):
    return self.root(s)==self.root(t)
N,M,X,K=map(int,input().split())
if K==2:
  p=[1]
  print(p[1])
A=list(map(int,input().split()))
G=[[] for i in range(N)]
for i in range(M):
  a,b=map(int,input().split())
  if abs(A[a-1]-A[b-1])<=X:
    G[a-1].append(b-1)
    G[b-1].append(a-1)
from bisect import bisect_right
Z=unif(2*N)
for i in range(N):
  x=A[i]
  L0=[]
  L1=[]
  p0=[]
  p1=[]
  for y in G[i]:
    if A[y]<A[i]:
      L0.append(y)
      p0.append(A[y])
    elif A[y]>A[i]:
      L1.append(y)
      p1.append(A[y])
    else:
      L0.append(y)
      p0.append(A[y])
      L1.append(y)
      p1.append(A[y])
  for pos in L0:
    Z.unite(2*pos,2*i+1)
  for pos in L1:
    Z.unite(2*pos+1,2*i)
  if len(L0)*len(L1):
    if min(p1)-max(p0)<=X:
      Z.unite(2*i,2*i+1)
result=0
used=[False]*(2*N)
R=[set() for i in range(2*N)]
for i in range(2*N):
  pos=Z.root(i)
  R[pos].add(i//2)
for i in range(2*N):
  n=len(R[i])
  result+=n*(n-1)
print(result)