#include <fstream>
#include <unordered_map>
#include <vector>
using namespace std;
ifstream f("nfa.in");
ofstream g("nfa.out");
const int N=1e4+5;
int n,x,k;
int nr_fn,fn[2000];
char z;
int cplm[2000][200];
int m,y,start,query;
struct pct
{
    int x,y;
};
vector<int>a[N][200];
bool check(string s,int poz, int nod)
{
    if(poz==s.size())
    {
        return fn[nod];
    }
    bool mx=0;
    for(auto vec: a[nod][int(s[poz])])
        if(cplm[vec][poz+1]==false)
        {
            cplm[vec][poz+1]=true;
            mx=max(mx,check(s,poz+1,vec));
            if(mx==1)
                return true;
        }
    return mx;
}
int main()
{
    f>>n>>m>>nr_fn>>start;
    for(int i=1;i<=nr_fn;i++)
        {
            f>>x;
            fn[x]=1;
        }
    for(int i=1;i<=m;i++)
    {
        f>>x>>y>>z;
        a[x][int(z)].push_back(y);
    }
    f>>query;
    while(query--)
    {
        string s;
        f>>s;
        for(int i=1;i<=n;i++)
            for(int j=0;j<=s.size();j++)
                cplm[i][j]=0;
        cplm[start][0]=true;
        if(check(s,0,start))
            g<<1;
        else
            g<<0;
        g<<'\n';
    }
    return 0;
}