#include<iostream>
#include<algorithm>
#include<set>
using namespace std;
const int N=100005;
struct edge{int to,next;}w[N<<1];
int n,h[N],cnt,T,a[N],ar[N];
char s[N];
void Add(int x,int y){
    w[++cnt].to=y,w[cnt].next=h[x],h[x]=cnt;
}
int hd[N],ng[N],ans[N],sv[N];
multiset<int> DFS(int u){
    int i,j;hd[u]=a[u];
    multiset<int> S,F;S.clear();
    int flg=0,ln;
    for(i=h[u];i;i=w[i].next){
        int e=w[i].to;
        F=DFS(e);hd[u]+=hd[e];
        if(!S.size())S=F,ng[u]=ng[e],ln=F.size();
        else{
        	auto it=S.begin(),jt=F.begin();
        	for(j=1;j<=ln&&jt!=F.end();j++){
        		if(!flg){
        			ar[j]=*it+*jt;
        			it++,jt++;
				}
				else ar[j]+=*jt,jt++;
			}
			ln=min(ln,int(F.size()));flg=1;
        }
    }
    if(flg){
    	S.clear();ng[u]=0;
    	for(i=1;i<=ln;i++){
    		if(ar[i]<0)ng[u]+=ar[i];
			S.insert(ar[i]);
		}
	}
    if(a[u]==0)S.insert(1);else S.insert(-1),ng[u]--;
    ans[u]=hd[u]+ng[u];return move(S);
}
int main(){
    int i,x;
    scanf("%d",&T);
    while(T--){
        scanf("%d",&n);scanf("%s",s+1);cnt=0;
        for(i=1;i<=n;i++)a[i]=s[i]-'0',h[i]=ng[i]=ans[i]=hd[i]=0;
        for(i=2;i<=n;i++)scanf("%d",&x),Add(x,i);DFS(1);
        for(i=1;i<=n;i++)printf("%d ",ans[i]);putchar('\n');
    }
    return 0;
}