// Judges with GCC >= 12 only needs Ofast
// #pragma GCC optimize("O3,no-stack-protector,fast-math,unroll-loops,tree-vectorize")
// MLE optimization
// #pragma GCC optimize("conserve-stack")
// Old judges
// #pragma GCC target("sse4.2,popcnt,lzcnt,abm,mmx,fma,bmi,bmi2")
// New judges. Test with assert(__builtin_cpu_supports("avx2"));
// #pragma GCC target("avx2,popcnt,lzcnt,abm,bmi,bmi2,fma,tune=native")
// Atcoder
// #pragma GCC target("avx2,popcnt,lzcnt,abm,bmi,bmi2,fma")
/*
#include <ext/pb_ds/assoc_container.hpp>
#include <ext/pb_ds/tree_policy.hpp>
using namespace __gnu_pbds;
typedef tree<int,null_type,less<int>,rb_tree_tag,tree_order_statistics_node_update> ordered_set;
- insert(x),erase(x)
- find_by_order(k): return iterator to the k-th smallest element
- order_of_key(x): the number of elements that are strictly smaller
*/
#include<bits/stdc++.h>
using namespace std;
mt19937_64 rng(chrono::steady_clock::now().time_since_epoch().count());
uniform_real_distribution<> pp(0.0,1.0);
#define int long long
#define ld long double
#define pii pair<int,int>
#define piii pair<int,pii>
#define mpp make_pair
#define fi first
#define se second
const int inf=1e18;
const int mod=998244353;
const int maxn=100005;
const int bl=650;
const int maxs=655;
const int maxm=200005;
const int maxq=1000005;
const int maxl=25;
const int maxa=1000000;
const int root=3;
int power(int a,int n){
    int res=1;
    while(n){
        if(n&1) res=res*a%mod;
        a=a*a%mod;n>>=1;
    }
    return res;
}
const int iroot=power(3,mod-2);
const int base=131;

int n,c[maxn],dp0[maxn],sum[maxn];
vector<int> edge[maxn];
priority_queue<int,vector<int>,greater<int>> pq[maxn];

void dfs(int u){
    int S=inf;
    dp0[u]=sum[u]=0;
    while(!pq[u].empty()) pq[u].pop();
    for(int v:edge[u]){
        dfs(v);
        dp0[u]+=dp0[v];
        S=min(S,(int)pq[v].size());
    }
    int d=1;
    if(c[u]) dp0[u]++,d=-1;

    if((int)edge[u].size()<=1){
        if(!edge[u].empty()){
            int v=edge[u][0];
            pq[u].swap(pq[v]);
            sum[u]+=sum[v];
        }
    }
    else{
        vector<int> ss(S,0);
        for(int v:edge[u]){
            for(int j=0;j<S;j++) ss[j]+=pq[v].top(),pq[v].pop();
        }
        for(int x:ss){
            pq[u].push(x);
            if(x<0) sum[u]+=x;
        }
    }

    pq[u].push(d);
    if(d<0) sum[u]+=d;
}

void solve(){
    cin >> n;
    for(int i=1;i<=n;i++) edge[i].clear();
    for(int i=1;i<=n;i++){
        char cc;cin >> cc;
        c[i]=cc-'0';
    }
    for(int i=2;i<=n;i++){
        int p;cin >> p;
        edge[p].push_back(i);
    }
    dfs(1);
    for(int i=1;i<=n;i++) cout << dp0[i]+sum[i] << ' ';
    cout << '\n';
}

signed main(){
    ios_base::sync_with_stdio(false);
    cin.tie(NULL);cout.tie(NULL);
    int test=1;cin >> test;
    while(test--) solve();
}