1 #include<cstdio>
2
3 #include<cstdlib>
4
5 #include<cmath>
6
7 #include<cstring>
8
9 #include<algorithm>
10
11 #include<iostream>
12
13 #include<vector>
14
15 #include<map>
16
17 #include<set>
18
19 #include<queue>
20
21 #include<string>
22
23 #define inf 1000000000
24
25 #define maxn 250000+5
26
27 #define maxm 500+100
28
29 #define eps 1e-10
30
31 #define ll long long
32
33 #define pa pair<int,int>
34
35 #define for0(i,n) for(int i=0;i<=(n);i++)
36
37 #define for1(i,n) for(int i=1;i<=(n);i++)
38
39 #define for2(i,x,y) for(int i=(x);i<=(y);i++)
40
41 #define for3(i,x,y) for(int i=(x);i>=(y);i--)
42
43 #define mod 1000000007
44
45 using namespace std;
46
47 inline int read()
48
49 {
50
51 int x=0,f=1;char ch=getchar();
52
53 while(ch<‘0‘||ch>‘9‘){if(ch==‘-‘)f=-1;ch=getchar();}
54
55 while(ch>=‘0‘&&ch<=‘9‘){x=10*x+ch-‘0‘;ch=getchar();}
56
57 return x*f;
58
59 }
60 int n,m,q,rt,top,tot,a[maxn],sta[maxn],head[maxn],fa[maxn],c[maxn][2],t[maxn][2],s[maxn][2],w[maxn],v[maxn],tag[maxn];
61 ll sum[maxn];
62 struct edge{int go,next;}e[maxn];
63 inline void insert(int x,int y)
64 {
65 e[++tot]=(edge){y,head[x]};head[x]=tot;
66 }
67 inline void dfs(int x)
68 {
69 v[t[x][0]=++m]=a[x];w[m]=1;
70 for(int i=head[x];i;i=e[i].next)
71 if(!t[e[i].go][0])dfs(e[i].go);
72 v[t[x][1]=++m]=-a[x];w[m]=-1;
73 }
74 inline void pushup(int x)
75 {
76 if(!x)return;
77 int l=c[x][0],r=c[x][1];
78 s[x][0]=s[l][0]+s[r][0]+(w[x]==1);
79 s[x][1]=s[l][1]+s[r][1]+(w[x]==-1);
80 sum[x]=sum[l]+sum[r]+(ll)v[x];
81 }
82 inline void update(int x,ll z)
83 {
84 if(!x)return;
85 sum[x]+=(ll)(s[x][0]-s[x][1])*z;v[x]+=w[x]*z;
86 tag[x]+=z;
87 }
88 inline void pushdown(int x)
89 {
90 if(!x)return;
91 if(!tag[x])return;
92 update(c[x][0],tag[x]);
93 update(c[x][1],tag[x]);
94 tag[x]=0;
95 }
96 inline void rotate(int x,int &k)
97 {
98 int y=fa[x],z=fa[y],l=c[y][1]==x,r=l^1;
99 if(y!=k)c[z][c[z][1]==y]=x;else k=x;
100 fa[x]=z;fa[y]=x;fa[c[x][r]]=y;
101 c[y][l]=c[x][r];c[x][r]=y;
102 pushup(y);pushup(x);
103 }
104 inline void splay(int x,int &k)
105 {
106 for(int i=x;i;i=fa[i])sta[++top]=i;
107 while(top)pushdown(sta[top--]);
108 while(x!=k)
109 {
110 int y=fa[x],z=fa[y];
111 if(y!=k)
112 {
113 if(c[z][0]==y^c[y][0]==x)rotate(x,k);else rotate(y,k);
114 }
115 rotate(x,k);
116 }
117 }
118 inline int findmin(int x)
119 {
120 while(c[x][0])x=c[x][0];
121 return x;
122 }
123 inline int findmax(int x)
124 {
125 while(c[x][1])x=c[x][1];
126 return x;
127 }
128 inline void split(int x,int y)
129 {
130 splay(x,rt);
131 int t1=findmax(c[x][0]);
132 splay(y,rt);
133 int t2=findmin(c[y][1]);
134 splay(t1,rt);
135 splay(t2,c[t1][1]);
136 }
137 inline void build(int l,int r,int f)
138 {
139 if(l>r)return;
140 int x=(l+r)>>1;
141 fa[x]=f;c[f][x>f]=x;
142 if(l==r){sum[x]=v[x];s[x][0]=w[x]==1;s[x][1]=1-s[x][0];return;}
143 build(l,x-1,x);build(x+1,r,x);
144 pushup(x);
145 }
146
147 int main()
148
149 {
150
151 freopen("input.txt","r",stdin);
152
153 freopen("output.txt","w",stdout);
154
155 n=read();
156 for2(i,2,n)insert(read(),i);
157 for1(i,n)a[i]=read();m=1;
158 dfs(1);
159 build(1,2*n+2,0);rt=(1+2*n+2)>>1;
160 q=read();
161 while(q--)
162 {
163 char ch=getchar();
164 while(ch!=‘Q‘&&ch!=‘C‘&&ch!=‘F‘)ch=getchar();
165 if(ch==‘Q‘)
166 {
167 int x=read();
168 splay(t[1][0],rt);splay(t[x][0],c[rt][1]);
169 printf("%lld\n",sum[c[c[rt][1]][0]]+(ll)v[rt]+(ll)v[c[rt][1]]);
170 }
171 else if(ch==‘F‘)
172 {
173 int x=read(),y=read();
174 splay(t[x][0],rt);splay(t[x][1],c[rt][1]);
175 int z=c[rt][1];
176 v[rt]+=w[rt]*y;v[z]+=w[z]*y;
177 update(c[z][0],y);
178 pushup(z);pushup(rt);
179 }
180 else
181 {
182 int x=read(),y=read();
183 split(t[x][0],t[x][1]);
184 int z=c[rt][1],tmp=c[z][0];c[z][0]=0;
185 pushup(z);pushup(rt);
186 splay(t[y][0],rt);splay(findmin(c[rt][1]),c[rt][1]);
187 z=c[rt][1];c[z][0]=tmp;fa[tmp]=z;
188 pushup(z);pushup(rt);
189 }
190 }
191
192 return 0;
193
194 }
