#include<iostream>
#include<cstdio>
#include<algorithm>
#include<cmath>
#include<cstring>
#include<string>
#include<cstdlib>
#include<stack>
#include<vector>
#include<queue>
#include<deque>
#include<map>
#include<set>
using namespace std;
#define maxn 1001
#define INF 0x3f3f3f3f
int n,m,Q,k;
int head[maxn],cnt=0;
int d[maxn][maxn<<1];
struct hh
{int nex,to,dis,bo;//bo用来判断这条边是否是
}t[maxn<<2];
struct pd//重载（做优先队列用）
{int u,num,v;//u起始点，num表示这条边之前已经走过了几条传送边 ，v表示 bool operator < (const pd &a)const{return v>a.v;}
};
priority_queue<pd> q;
inline void add(int nex,int to,int dis,int bo)
{t[++cnt].nex=head[nex];t[cnt].to=to;t[cnt].dis=dis;t[cnt].bo=bo;//bo为 0 表示普通的路，为 1 表示传送通道head[nex]=cnt;
}
inline int read()
{int kr=1,xs=0;char ls;ls=getchar();while(!isdigit(ls)){if(!(ls^45))kr=-1;ls=getchar();}while(isdigit(ls)){xs=(xs<<1)+(xs<<3)+(ls^48);ls=getchar();}return xs*kr;
}
inline void dijkstra()//dijkstra 最短路的双层图模板（和普通最短路模板基本一样）
{q.push((pd){1,0,0});d[1][0]=0;while(!q.empty()){pd x=q.top();q.pop();if(x.v!=d[x.u][x.num]) continue;for(int i=head[x.u];i;i=t[i].nex){int v=t[i].to;if(d[v][x.num+t[i].bo]>x.v+t[i].dis)//最短路
            {d[v][x.num+t[i].bo]=x.v+t[i].dis;q.push((pd){v,x.num+t[i].bo,d[v][x.num+t[i].bo]});//存：边权，已走过的传送道路数，距点1 的距离
            }}}
}
int main()
{freopen("move.in","r",stdin);freopen("move.out","w",stdout);n=read();m=read();Q=read();k=read();int x,y,z;for(int i=1;i<=m;i++){x=read();y=read();z=read();add(x,y,z,0);//存普通的路
    } for(int i=1;i<=Q;i++){x=read();y=read();z=read();add(x,y,z,1);//存传送通道
    }memset(d,INF,sizeof(d));dijkstra();int ans=INF;for(int i=0;i<=min(Q,k);i++)ans=min(ans,d[n][i]);if(ans==INF)//判断是否有路
    {printf("-1\n");return 0;}printf("%d\n",ans);
return 0;
}