#include <cstdio>

#include <cstring>

#include <iostream>

#include <algorithm>

using namespace std;

#define ll long long

ll n,m,k,e,map[][],cost[][],que[**],dp[];

bool if_[][];

inline void in(ll &now)

{

    register char Cget=getchar();now=;

    while(Cget>''||Cget<'') Cget=getchar();

    while(Cget>=''&&Cget<='')

    {

        now=now*+Cget-'';

        Cget=getchar();

    }

}

ll spfa(ll u,ll v)

{

    ll dis[],can[],init[],h=,tail=;

    for(ll i=;i<=m;i++) can[i]=true,dis[i]=0x7ffffff,init[i]=false;

    for(ll i=u;i<=v;i++)

    {

        for(ll j=;j<=m;j++) if(if_[i][j]) can[j]=false;

    }

    que[]=,dis[]=,init[]=true;

    while(h<tail)

    {

        ll now=que[h++];init[now]=false;

        for(ll i=;i<=m;i++)

        {

            if(can[i]&&dis[i]>dis[now]+map[now][i])

            {

                dis[i]=dis[now]+map[now][i];

                if(!init[i])

                {

                    init[i]=true;

                    que[tail++]=i;

                }

            }

        }

    }

    return dis[m];

}

int main()

{

    in(n),in(m),in(k),in(e);ll u,v,w;

    memset(dp,/,sizeof(dp));

    memset(map,/,sizeof(map));

    while(e--)

    {

        in(u),in(v),in(w);

        map[u][v]=map[v][u]=min(w,map[v][u]);

    }

    in(e);

    while(e--)

    {

        in(w),in(u),in(v);

        for(ll i=u;i<=v;i++) if_[i][w]=true;

    }

    for(ll i=;i<=n;i++)

    {

        for(ll j=i;j<=n;j++)

        {

            cost[i][j]=spfa(i,j);

        }

    }

    dp[]=;

    for(ll i=;i<=n;i++)

    {

        for(ll j=;j<i;j++)

        {

            dp[i]=min(dp[i],dp[j]+cost[j+][i]*(i-j)+k);

        }

    }

    cout<<dp[n]-k;

}