var
    f:array[0..100,0..100]of longint;
    a:array[0..20,0..100]of boolean;
    head,next,go,w,q:array[0..10000]of longint;
    dis:array[0..20]of longint;
    v,can:array[0..20]of boolean;
    n,m,k,e,tot,l,r,h,t:longint;

function min(x,y:longint):longint;
begin
    if x<y then exit(x);
    exit(y);
end;

procedure spfa;
var
    i,j,x:longint;
begin
    h:=0;
    t:=1;
    q[1]:=1;
    for i:=2 to m do
      dis[i]:=21470000;
    dis[1]:=0;
    for i:=2 to m do
      v[m]:=false;
    v[1]:=true;
    for i:=1 to m do
      begin
        can[i]:=true;
        for j:=l to r do
          if a[i,j] then can[i]:=false;
      end;
    while h<=t do
      begin
        inc(h);
        x:=q[h];
        v[x]:=false;
        i:=head[x];
        while i<>0 do
          begin
            j:=go[i];
            if can[j] then
            if dis[j]>dis[x]+w[i] then
            begin
              dis[j]:=dis[x]+w[i];
              if v[x]=false then
              begin
                inc(t);
                v[j]:=true;
                q[t]:=j;
              end;
            end;
            i:=next[i];
          end;
      end;
    f[l,r]:=dis[m]*(r-l+1);
end;

procedure insert(x,y,z:longint);
begin
    inc(tot);
    go[tot]:=y;
    next[tot]:=head[x];
    head[x]:=tot;
    w[tot]:=z;
end;

procedure init;
var
    i,j,x,y,z:longint;
begin
    read(n,m,k,e);
    for i:=1 to e do
      begin
        read(x,y,z);
        insert(x,y,z);
        insert(y,x,z);
      end;
    read(e);
    fillchar(a,sizeof(a),false);
    for i:=1 to e do
      begin
        read(x,y,z);
        for j:=y to z do
          a[x,j]:=true;
      end;
    for l:=1 to n do
      for r:=l to n do
        spfa;
end;
procedure dp;
var
    i,j,l:longint;
begin
    for i:=1 to n-1 do
      for j:=1 to n-i do
        for l:=j to i+j-1 do
          f[j,i+j]:=min(f[j,i+j],f[j,l]+k+f[l+1,i+j]);
    write(f[1,n]);
end;

begin
    init;
    dp;
end.