#include<bits/stdc++.h>
using namespace std;
#define ll long long
#define pb push_back
#define mp make_pair
#define ALL(x) (x).begin(),(x).end()
#define rALL(x) (x).rbegin(),(x).rend()
#define srt(x) sort(ALL(x))
#define rev(x) reverse(ALL(x))
#define rsrt(x) sort(rALL(x))
#define sz(x) (int)(x.size())
void die(string S){puts(S.c_str());exit(0);}
int n,k;
bool exist[100100];
int fa[100100];
int anc[100100];
vector<int> depth[100100];
int Depth[100100];
vector<int> G[100100];
void dfs(int x)
{
    Depth[x]=Depth[fa[x]]+1;
    for(int i=0;i<sz(G[x]);i++)
        dfs(G[x][i]);
}
void dfs2(int x)
{
    depth[Depth[x]].pb(x);
    for(int i=0;i<sz(G[x]);i++)
        dfs2(G[x][i]);
    if(Depth[x]+k>n)
        return ;
    for(int i=0;i<sz(depth[Depth[x]+k]);i++)
        anc[depth[Depth[x]+k][i]]=x;
    depth[Depth[x]+k].resize(0);
}
void del(int x)
{
    if(!exist[x])
        return ;
    exist[x]=false;
    for(int i=0;i<sz(G[x]);i++)
        del(G[x][i]);
}
void solve()
{
    memset(anc,0,sizeof(anc));
    Depth[0]=-1;
    memset(exist,1,sizeof(exist));
    scanf("%d%d",&n,&k);
    for(int i=1;i<=n;i++)
    {
        G[i].clear();
        depth[i].clear();
    }
    for(int i=2;i<=n;i++)
    {
        scanf("%d",fa+i);
        G[fa[i]].pb(i);
    }
    dfs(1);
    dfs2(1);
    for(int i=1;i<=n;i++)
        if(!anc[i])
            anc[i]=1;
    vector<pair<int,int> > v;
    for(int i=1;i<=n;i++)
    {
        int flag;
        scanf("%d",&flag);
        if(flag)
            v.pb(mp(Depth[i],i));
    }
    rsrt(v);
    int ans=0;
    for(int i=0;i<sz(v);i++)
        if(exist[v[i].second])
        {
            ans++;
            del(anc[v[i].second]);
        }
    cout<<ans<<endl;
}
int main()
{
    int t;
    scanf("%d",&t);
    while(t--)
        solve();
    return 0;
}