#include <cstdio>
#include <vector>
#include <queue>
#include <cstring>
using namespace std;

vector<vector<pair<int,int> > > G;
int A[10047];

int main()
{
	int n,m,a,k;
	scanf("%d %d %d %d ",&n,&m,&a,&k);
	while(n+m+a+k!=0)
	{
		G.clear();
		G.resize(n+42);
		for(int i=0; i<m; i++)
		{
			int x,y,d;
			scanf("%d %d %d ",&x,&y,&d);
			G[x].push_back(make_pair(y,d));
			G[y].push_back(make_pair(x,d));
		}
		int pocet=n;
		for(int i=0; i<n+42; i++) A[i]=0;
		for(int i=1; i<=a; i++)
		{
			int x;
			scanf("%d ",&x);
			//Dijkstra
			priority_queue<pair<int,int> > halda;
			halda.push(make_pair(0,x));
			while(!halda.empty())
			{
				while(!halda.empty() && A[halda.top().second]==i) halda.pop();
				if(!halda.empty())
				{
					int v=halda.top().second;
					int vz=halda.top().first;
					if(A[v]==0) pocet--;
					A[v]=i;
					for(int j=0; j<G[v].size(); j++)
						if(G[v][j].second+vz<k && A[G[v][j].first]!=i) halda.push(make_pair(vz+G[v][j].second,G[v][j].first));
				}
			}
			printf("%d\n",pocet);
		}
		printf("\n");
		scanf("%d %d %d %d ",&n,&m,&a,&k);
	}
	return 0;
}