#include <bits/stdc++.h>
using namespace std;
#define pb push_back

const int N=1000050;

int go[N][26],link[N],root=1,tsz=1;
vector<int> C[N];
int cnt[N],node[N];

int AddStr(char*s,int len,int idx){
    int c=root;
    for(int i=1;i<=len;i++){
        if(go[c][s[i]-'A']==0){
            go[c][s[i]-'A']=++tsz;
        }
        c=go[c][s[i]-'A'];
    }
    return c;
}

void Build(){
    queue<int> q;
    link[root]=root;
    for(int i=0;i<26;i++){
        if(go[root][i]){
            q.push(go[root][i]);
            link[go[root][i]]=root;
        }else{
            go[root][i]=root;
        }
    }
    while(q.size()){
        int u=q.front();
        q.pop();
        for(int i=0;i<26;i++){
            if(go[u][i]){
                link[go[u][i]]=go[link[u]][i];
                q.push(go[u][i]);
            }else{
                go[u][i]=go[link[u]][i];
            }
        }
    }
    for(int i=2;i<=tsz;i++)C[link[i]].pb(i);
}

char chr[N];
char s[N];
vector<int> E[N];

void DFS(int u,int p,int c){
    c=go[c][chr[u]-'A'];
    cnt[c]++;
    for(int v:E[u]){
        DFS(v,u,c);
    }
}
void Solve(int u){
    for(int v:C[u]){
        Solve(v);
        cnt[u]+=cnt[v];
    }
}

int main(){
    int n,k;
    scanf("%i %i",&n,&k);
    int rt=0;
    for(int i=1;i<=n;i++){
        int p;
        scanf("\n%c %i",&chr[i],&p);
        if(p==0)rt=i;
        else E[p].pb(i);
    }
    for(int i=1;i<=k;i++){
        scanf("%s",s+1);
        int m=strlen(s+1);
        reverse(s+1,s+1+m);
        node[i]=AddStr(s,m,i);
    }
    Build();
    DFS(rt,0,root);
    Solve(root);
    for(int i=1;i<=k;i++){
        printf("%i\n",cnt[node[i]]);
    }
    return 0;
}