#include <bits/stdc++.h>
using namespace std;
#include <atcoder/all>
using namespace atcoder;



// #include <boost/multiprecision/cpp_int.hpp>
// using namespace boost::multiprecision;

#define ll long long
#define ld long double
#define rep(i, n) for (ll i = 0; i < (ll)(n); ++i)
#define vi vector<int>
#define vl vector<ll>
#define vd vector<double>
#define vb vector<bool>
#define vs vector<string>
#define vc vector<char>
#define ull unsigned long long
#define all(a) (a).begin(), (a).end()
#define rall(a) (a).rbegin(), (a).rend()

template<class T, class U>
inline bool chmax(T &a, const U &b) {
    if (a < b) {
        a = b;
        return true;
    }
    return false;
}

template<class T, class U>
inline bool chmin(T &a, const U &b) {
    if (a > b) {
        a = b;
        return true;
    }
    return false;
}


// #define ll int
// #define ll int128_t
// #define ll int256_t
// #define ll cpp_int


constexpr ll inf = (1ll << 60);
// constexpr ll inf = (1 << 30);
// const double PI=3.1415926535897932384626433832795028841971;

// ll rui(ll a,ll b){
//     if(b==0)return 1;
//     if(b%2==1) return a*rui(a*a,b/2);
//     return rui(a*a,b/2);
// }

// vl fact;
// ll kai(ll n){
//     fact.resize(n,1);
//     rep(i,n-1)fact[i+1]=fact[i]*(i+1);
// }

// using mint = ld;
// using mint = modint998244353;//static_modint<998244353>
// using mint = modint1000000007;//static_modint<1000000007>
// using mint = static_modint<922267487>;   // 多分落とされにくい NOT ntt-friendly
// using mint = static_modint<469762049>;   // ntt-friendly
// using mint = static_modint<167772161>;   // ntt-friendly
using mint = modint;//mint::set_mod(mod);

// ll const mod=1000000007ll;
// ll const mod=998244353ll;
// ll modrui(ll a,ll b,ll mod){
//     a%=mod;
//     if(b==0)return 1;
//     if(b%2==1) return a*modrui(a*a%mod,b/2,mod)%mod;
//     return modrui(a*a%mod,b/2,mod)%mod;
// }

// void incr(vl &v,ll n){//　n進法
//     ll k=v.size();
//     v[k-1]++;
//     ll now=k-1;
//     while (v[now]>=n)
//     {
//         v[now]=0;
//         if(now==0)break;
//         v[now-1]++;
//         now--;
//     }
//     return;
// }

// vector<mint> fact,invf;
// void init_modfact(ll sz){
//     fact.resize(sz);
//     invf.resize(sz);
//     fact[0]=1;
//     rep(i,sz-1){
//         fact[i+1]=fact[i]*(i+1);
//     }
//     invf[sz-1]=1/fact[sz-1];
//     for(ll i=sz-2; i>=0; i--){
//         invf[i]=invf[i+1]*(i+1);
//     }
// }
// mint choose(ll n,ll r){
//     if(n<r || r<0)return 0;
//     return fact[n]*invf[r]*invf[n-r];
// }

// vector<mint> modpow,invpow;
// void init_modpow(ll x,ll sz){
//     mint inv=1/mint(x);
//     modpow.assign(sz,1);
//     invpow.assign(sz,1);
//     rep(i,sz-1){
//         modpow[i+1]=modpow[i]*x;
//         invpow[i+1]=invpow[i]*inv;
//     }
// }
// long long phi(long long n) {// O(sqrt(n))
//     long long res = n;
//     for (long long i = 2; i * i <= n; i++) {
//         if (n % i == 0) {
//             res -= res / i;
//             while (n % i == 0) n /= i;
//         }
//     }
//     if (n > 1) res -= res / n;
//     return res;
// }







struct edge{
    ll to,id;
};

void solve() {
    ll n,m,x,k;
    cin >> n >> m >> x >> k;
    vl a(n);
    rep(i,n)cin >> a[i];
    vector<vector<edge>> g(n);
    vl u(m),v(m);
    rep(i,m){
        cin >> u[i] >> v[i];
        u[i]--;v[i]--;
        if(abs(a[u[i]]-a[v[i]])>x){
            m--;
            i--;
            u.pop_back();
            v.pop_back();
            continue;
        }
        g[u[i]].push_back({v[i],i});
        g[v[i]].push_back({u[i],i});
    }

    if(k==2){
        dsu uf(n);
        rep(u,n){
            for(auto [v,id]:g[u]){
                if(abs(a[u]-a[v])<=x)uf.merge(u,v);
            }
        }
        auto gs=uf.groups();
        ll ans=0;
        for(auto g:gs)ans+=g.size()*(g.size()-1);
        cout << ans << endl;
        return;
    }

    dsu uf(m);
    rep(u,n){
        sort(all(g[u]),[&a](const edge &l,const edge &r){
            return a[l.to]<a[r.to];
        });
        rep(i,(ll)g[u].size()-1){
            ll v=g[u][i].to,w=g[u][i+1].to;
            if(max({a[u],a[v],a[w]})-min({a[u],a[v],a[w]})<=x){
                uf.merge(g[u][i].id,g[u][i+1].id);
            }
        }
    }

    auto gs=uf.groups();
    ll ans=0;
    vl blg(n,-1);
    map<pair<ll,ll>,ll> mp;
    rep(idx,gs.size()){
        auto &g=gs[idx];
        set<ll> st;
        st.clear();
        for(auto &id:g){
            st.insert(u[id]);
            st.insert(v[id]);
        }
        ans+=st.size()*(st.size()-1);
        for(auto i:st){
            if(blg[i]==-1)blg[i]=idx;
            else{
                ans-=mp[{blg[i],idx}]*2;
                mp[{blg[i],idx}]++;
            }
        }
    }

    cout << ans << endl;
}

int main(){
    ios::sync_with_stdio(false);
    std::cin.tie(nullptr);

    // ll mx=450;
    // vc fl(mx+1,0);
    // for(ll d=2;d<=mx;d++){
    //     if(fl[d])continue;
    //     ll x=d;
    //     ps.push_back(x);
    //     while(x<=mx){
    //         fl[x]=1;
    //         x+=d;
    //     }
    // }
    
    ll t = 1;
    // cin >> t;
    while (t--) solve();
}