#include<bits/stdc++.h>
#define Gc() getchar()
#define Me(x,y) memset(x,y,sizeof(x))
#define Mc(x,y) memcpy(x,y,sizeof(x))
#define d(x,y) ((m)*(x-1)+(y))
#define R(n) (rnd()%(n)+1)
#define Pc(x) putchar(x)
#define LB lower_bound
#define UB upper_bound
#define fi first
#define se second
#define eb emplace_back
#define all(x) x.begin(),x.end()
using namespace std;using ll=long long;using db=double;using lb=long db;using ui=unsigned;using ull=unsigned long long;using pii=pair<int,int>;
const int N=1e6+5,M=N*4+5,K=1e7+5,mod=998244353,Mod=mod-1;const db eps=1e-9;const ll INF=1e18+7;mt19937 rnd(263082);
#define Tp template<typename T>
#define Ts template<typename T,typename... Ar>
namespace Debug{
	Tp void _debug(char* f,T t){cerr<<f<<'='<<t<<endl;}
	Ts void _debug(char* f,T x,Ar... y){while(*f!=',') cerr<<*f++;cerr<<'='<<x<<",";_debug(f+1,y...);}
	#ifdef LOCAL
	#define gdb(...) _debug((char*)#__VA_ARGS__,__VA_ARGS__)
	#else 
	#define gdb(...) void()
	#endif
}using namespace Debug;
int n,q,fa[N],A[N],B[N];
vector<int> S[N];
int d[N],tp[N],siz[N],son[N],id[N],ih;
void dfs1(int x,int La){
	d[x]=d[La]+1;siz[x]=1;
	for(int i:S[x]) dfs1(i,x),siz[x]+=siz[i],siz[i]>siz[son[x]]&&(son[x]=i);
}
void dfs2(int x,int La){
	tp[x]=La;id[x]=++ih;if(son[x]) dfs2(son[x],La);
	for(int i:S[x]) if(i^son[x]) dfs2(i,i);
}
struct DS1{
	map<ll,ll> f;
	void add(ll x,ll y){f[x]+=y;}
	ll qry(ll x){
		ll ti=INF;x=INF-x;
		for(auto it=f.rbegin();it!=f.rend();it++){
			if(x<ti-it->fi) return ti-x;
			x+=it->se-(ti-it->fi);
		}
		assert(0);
	}
}f1[N];
ll dp[N],sum[N];
void make(int x,int La){
	f1[x].add(-1,0);sum[x]=A[x];
	for(int i:S[x]) make(i,x),f1[x].add(dp[i],B[i]),sum[x]+=B[i];
	dp[x]=f1[x].qry(sum[x]);
	gdb(x,dp[x]);
}
void modify(int p,int x,int y){
	sum[p]-=A[p];A[p]=x;sum[p]+=A[p];
	if(p^1){
		f1[fa[p]].add(dp[x],-B[p]);
		sum[fa[p]]-=B[p];
	}
	B[p]=y;
	dp[p]=f1[p].qry(sum[p]);
	if(p^1){
		f1[fa[p]].add(dp[x],B[p]);
		sum[fa[p]]+=B[p];
	}
	if(p==1) return;
	p=fa[p];
	while(p){
		if(p^1) f1[fa[p]].add(dp[p],-B[p]),
		dp[p]=f1[p].qry(sum[p]);
		if(p^1) f1[fa[p]].add(dp[p],B[p]);
		p=fa[p];
	}
}
ll qry(int x){
	return f1[x].qry(sum[x]);
}
void Solve(){
	scanf("%d%d",&n,&q);
	for(int i=2;i<=n;i++) scanf("%d",&fa[i]),S[fa[i]].push_back(i);
	dfs1(1,0);
	dfs2(1,1);
	for(int i=1;i<=n;i++) scanf("%d",&A[i]);
	for(int i=1;i<=n;i++) scanf("%d",&B[i]);
	make(1,0);
	while(q--){
		int op,p,x,y;
		scanf("%d",&op);
		if(op==1) scanf("%d%d%d",&p,&x,&y),modify(p,x,y);
		else{
			scanf("%d%d",&x,&y);
			printf("%d\n",make_pair(qry(x),x)<make_pair(qry(y),y));
		}
	}
}
int main(){
	int t=1;
	// scanf("%d",&t);
	while(t--) Solve();
	cerr<<clock()*1.0/CLOCKS_PER_SEC<<'\n';
}