#include<iostream>
#include<cstring>
using namespace std;
const int N=2050,M=10050; 
int d,n,k,m,cond;
long long c[2050][2050],dp[2050];
int hd[N],cnt;
int pd[N][2050];
bool jud[N];
struct aaa{
	int to,nt;
	long long w;
}a[M];
void add(int u,int v,int w){
	a[++cnt].to=v;
	a[cnt].w=w;
	a[cnt].nt=hd[u];
	hd[u]=cnt;
}
long long dis[N];
bool vis[N];
int mn,id;
void dij(){
	for(int i=0;i<=n+10;i++) dis[i]=90000000,vis[i]=false;
	dis[1]=0;
	for(int i=1;i<=n;i++){
		if(jud[i]) continue;
		mn=90000000;
		for(int j=1;j<=n;j++) if(!jud[j]&&!vis[j]&&mn>dis[j]) mn=dis[j],id=j;
		vis[id]=true;
		for(int j=hd[id];j;j=a[j].nt) if(!jud[j]&&!vis[a[j].to]&&dis[a[j].to]>dis[id]+a[j].w) dis[a[j].to]=dis[id]+a[j].w;
	}
}
int main(){
	cin>>d>>n>>k>>m;
	int x,y,z;
	long long w;
	for(int i=1;i<=m;i++){
		cin>>x>>y>>w;
		add(x,y,w),add(y,x,w); 
	}
	cin>>cond;
	for(int i=1;i<=cond;i++){
		cin>>x>>y>>z;
		for(int j=y;j<=z;j++) pd[x][j]=1;
	}
	for(int i=1;i<=n;i++) for(int j=1;j<=d;j++) pd[i][j]+=pd[i][j-1];
	for(int i=0;i<=d;i++){        
		for(int j=i+1;j<=d;j++){
			for(int l=0;l<=n+10;l++) jud[l]=false;
			for(int l=1;l<=n;l++) if(pd[l][j]-pd[l][i]>0) jud[l]=true;
			dij();
			c[i][j]=dis[n];
		}
	}
	memset(dp,0x3f,sizeof(dp));
	dp[0]=0;
	for(int i=1;i<=d;i++){
		for(int j=0;j<i;j++){
			if(c[j][i]==90000000) continue;
		    if(j==0) dp[i]=min(dp[j]+c[j][i]*(i-j),dp[i]);
		    else dp[i]=min(dp[j]+c[j][i]*(i-j)+k,dp[i]); 
		}
	}
	cout<<dp[d]<<endl;
	return 0;
}