#include <iostream>
#include <algorithm>
#include <vector>
#include <queue>
constexpr int N(2010),M(2010),ML(1e5+10);
using ll=long long;
struct I
{
	struct P
	{
		int a,b;
		ll len;
		bool operator<(const P &_) const {return len<_.len;}
	}ps[5];
	int pc;
};
I calc(I::P *ps,int cnt)
{
	std::sort(ps,ps+cnt);I ret;if(!cnt){ret.pc=0;return ret;}
	ret.ps[(ret.pc=1)-1]=ps[0];
	int t1(-1),t2(-1);
	for(int i(0);i<cnt;++i) if(ps[i].a!=ps[0].a){ret.ps[ret.pc++]=ps[i];t1=ps[i].b;break;}
	for(int i(0);i<cnt;++i) if(ps[i].b!=ps[0].b){ret.ps[ret.pc++]=ps[i];t2=ps[i].a;break;}
	if(~t1) for(int i(0);i<cnt;++i) if(ps[i].a!=ps[0].a && ps[i].b!=t1){ret.ps[ret.pc++]=ps[i];break;}
	if(~t2) for(int i(0);i<cnt;++i) if(ps[i].b!=ps[0].b && ps[i].a!=t2){ret.ps[ret.pc++]=ps[i];break;}
	return ret;
}
I operator+(const I &a,const I &b)
{
	static I::P ps[36];int cnt(0);
	for(int i(0);i<a.pc;++i) for(int j(0);j<b.pc;++j) if(a.ps[i].b!=b.ps[j].a) ps[cnt++]=(I::P){a.ps[i].a,b.ps[j].b,a.ps[i].len+b.ps[j].len};
	return calc(ps,cnt);
}
int n,m;
std::vector<std::pair<int,int>> es[N];
std::pair<int,int> ge[M*2];int wt[M*2];
ll dis[M*2][M*2];I pre[N][N];
void calc(int s)
{
	static ll d[M*2];static int vis[N];
	constexpr ll inf(1e18);std::fill(d+1,d+m*2+1,inf);std::fill(vis+1,vis+n+1,-1);
	d[s]=wt[s];
	struct _n
	{
		ll dis;
		int u;
		bool operator<(const _n &b) const {return dis>b.dis;}
		_n()=default;
		_n(ll _d,int _u):dis(_d),u(_u){}
	};
	static std::priority_queue<_n> q;q.emplace(wt[s],s);
	while(!q.empty())
	{
		auto _=q.top();q.pop();
		if(_.dis>d[_.u]) continue;int u(_.u),k(ge[u].second);
		if(!(~vis[k]))
		{
			vis[k]=((u&1)?(u+1):(u-1));
			for(auto [id,w]:es[k]) if(d[u]+w<d[id] && id!=vis[k])
			{
				d[id]=d[u]+w;
				q.emplace(d[id],id);
			}
		}
		else if((vis[k]+1)/2!=(u+1)/2)
		{
			if(d[u]+wt[vis[k]]<d[vis[k]])
			{
				d[vis[k]]=wt[vis[k]]+d[u];
				q.emplace(d[vis[k]],vis[k]);
			}
		}
	}
	for(int i(1);i<=m*2;++i) dis[s][i]=d[i];
}
namespace T
{
	I z[ML<<2];
	void pu(int u){z[u]=z[u<<1]+z[u<<1|1];}
	void build(int u,int cl,int cr,int *xs)
	{
		if(cl==cr){z[u]=pre[xs[cl]][xs[cl+1]];return;}
		int mid((cl+cr)>>1);build(u<<1,cl,mid,xs);build(u<<1|1,mid+1,cr,xs);pu(u);
	}
	void chg(int u,int cl,int cr,int pos,const I &i)
	{
		if(cl==cr){z[u]=i;return;}int mid((cl+cr)>>1);
		if(pos<=mid) chg(u<<1,cl,mid,pos,i);else chg(u<<1|1,mid+1,cr,pos,i);pu(u);
	}
}
int main()
{
	std::ios::sync_with_stdio(false);
	std::cin.tie(nullptr);
	int T,L;std::cin>>n>>m>>T>>L;
	for(int i(1);i<=m;++i)
	{
		int u,v,w;std::cin>>u>>v>>w;
		es[u].emplace_back(i*2-1,w);es[v].emplace_back(i*2,w);
		ge[i*2-1]={u,v};wt[i*2-1]=w;ge[i*2]={v,u};wt[i*2]=w;
	}
	for(int i(1);i<=m*2;++i) calc(i);
	for(int i(1);i<=n;++i) for(int j(1);j<=n;++j) if(j!=i)
	{
		static I::P ps[M*M];int cnt(0);
		for(auto [di,wi]:es[i]) for(auto [dj,wj]:es[j])
		{
			int t((dj&1)?(dj+1):(dj-1));
			ps[cnt++]=(I::P){(di+1)/2,(t+1)/2,dis[di][t]};
		}
		pre[i][j]=calc(ps,cnt);
	}
	static int xs[ML];
	for(int i(1);i<=L;++i) std::cin>>xs[i];
	T::build(1,1,L-1,xs);
	while(T--)
	{
		int pos,v;std::cin>>pos>>v;
		xs[pos]=v;
		if(pos>1) T::chg(1,1,L-1,pos-1,pre[xs[pos-1]][v]);
		if(pos<L) T::chg(1,1,L-1,pos,pre[v][xs[pos+1]]);
		if(!T::z[1].pc) std::cout<<"-1\n";
		else std::cout<<T::z[1].ps[0].len<<"\n";
	}
	return 0;
}