#include <bits/stdc++.h>
#define D(...) fprintf(stderr,__VA_ARGS__)
#define SZ(x) ((int)(x).size())
#define rep(i,a,b) for(int i=(a);i<=(b);++i)
#define per(i,a,b) for(int i=(a);i>=(b);--i)
using namespace std;
using LL=long long;
const int N=200005,B=350;
int n,m,x,y,d[N],a[N],b[N],p[N],q[N],c[N];
LL dp[N],W[N]; // dp:y
vector<pair<int,int> >e[N],E[N]; // e:x E:y
LL query(int i){
	if(SZ(e[i])<B){
		LL ret=0;
		for(auto&u:e[i]){
			ret=max(ret,dp[u.first]+u.second);
		}
		return ret;
	}else{
		return W[i];
	}
}
void upd(int u){ // u:y
	for(auto&x:E[u]){
		W[x.first]=max(W[x.first],dp[u]+x.second);
	}
}
signed main() {
	ios::sync_with_stdio(0),cin.tie(0);
	cin>>n>>m>>x>>y;
	rep(i,1,x)cin>>d[i];
	rep(i,1,n){
		cin>>a[i]>>b[i];
	}
	rep(i,1,m){
		cin>>p[i]>>q[i]>>c[i];
		e[q[i]].emplace_back(p[i],c[i]);
	}
	rep(i,1,x){
		if(SZ(e[i])>=B){
			for(auto&cur:e[i]){
				E[cur.first].emplace_back(i,cur.second);
			}
		}
	}
	memset(dp,192,sizeof(dp));
	dp[0]=0;
	rep(i,1,n){
		LL old=dp[0];
		dp[0]=max(dp[0]+d[b[i]],query(b[i])+d[b[i]]);
		dp[a[i]]=max(dp[a[i]],old);
		upd(a[i]);
		/*rep(j,0,y){
			D("%lld ",dp[j]);
		}
		D("\n");*/
	}
	printf("%lld\n",dp[0]);
	return 0;
}