#include<stdio.h>
#include<bits/stdc++.h>
#define fir first
#define sec second
#define all(x) begin(x),end(x)
using namespace std;
typedef long long ll;
typedef unsigned uint;
typedef unsigned long long ull;
typedef double db;
typedef long double ldb;
typedef pair<ll,ll> pii;
template<typename type>
inline void chmin(type &x,const type &y)
{
	if(y<x)
		x=y;
}
template<typename type>
inline void chmax(type &x,const type &y)
{
	if(x<y)
		x=y;
}
bool mmp1;
mt19937 rng(666);
constexpr int Max=2e5+10;
ll f[Max],g[Max];
int a[Max],b[Max];
int ls[Max],rs[Max];
uint rnd[Max];
ll val[Max],sum[Max];//k <=val ? k -= sum : further dfs
inline void push_up(int p)
{
	const int l=ls[p],r=rs[p];
	sum[p]=g[p]+sum[l]+sum[r];
	if(r)
		val[p]=min(val[r],f[p]+sum[r]);
	else
		val[p]=f[p];
	if(l)
		chmin(val[p],val[l]+g[p]+sum[r]);
}
void split(const int p,const pii &k,int &x,int &y)
{
	if(!p)
	{
		x=y=0;
		return;
	}
	if(pii(f[p],p)<=k)
		x=p,split(rs[p],k,rs[p],y);
	else
		y=p,split(ls[p],k,x,ls[p]);
	push_up(p);
}
int merge(int p,int q)
{
	if(!p||!q)
		return p|q;
	if(rnd[p]<rnd[q])
	{
		rs[p]=merge(rs[p],q);
		push_up(p);
		return p;
	}
	else
	{
		ls[q]=merge(p,ls[q]);
		push_up(q);
		return q;
	}
}
bool check(int u,int p)
{
	if(!u)
		return false;
	if(u==p)
		return true;
	return check(ls[u],p)||check(rs[u],p);
}
void insert(int &r,int p)
{
	push_up(p);
	int u,v;
	split(r,pii(f[p],p),u,v);
	r=merge(merge(u,p),v);
}
void erase(int &r,int p)
{
	int u,v,w;
	split(r,pii(f[p],p),u,w);
	split(u,pii(f[p],p-1),u,v);
	r=merge(u,w);
}
ll query(int p,ll k)
{
	if(!p)
		return k;
	if(k<=val[p])
		return k-sum[p];
	k=query(rs[p],k);
	if(k<=f[p])
		return query(ls[p],k-g[p]);
	else
		return k;
}
struct node
{
	ll u,p,q;//x >= u ? p : q
	inline node()
	{
		u=p=q=0;
	}
	inline node(const ll &u,const ll &p,const ll &q)
	{
		this->u=u,this->p=p,this->q=q;
	}
	inline ll operator ()(const ll &x)const
	{
		return x>=u?p:q;
	}
	inline friend node operator +(const node &a,const node &b)
	{
		return node(a.u,a.p>=b.u?b.p:b.q,a.q>=b.u?b.p:b.q);
	}
};
struct segment_tree
{
	static constexpr int Size=262144*2+100;
	#define ls(p) ((p)<<1)
	#define rs(p) ((p)<<1|1)
	node t[Size];
	inline void push_up(int p)
	{
		t[p]=t[rs(p)]+t[ls(p)];
	}
	void modify(const int &x,int p,int l,int r,const node &k)
	{
		if(l==r)
		{
			t[p]=k;
			return;
		}
		int mid=(l+r)>>1;
		if(x<=mid)
			modify(x,ls(p),l,mid,k);
		else
			modify(x,rs(p),mid+1,r,k);
		push_up(p);
	}
	node query(const int &ql,const int &qr,int p,int l,int r)
	{
		if(l>=ql&&r<=qr)
			return t[p];
		int mid=(l+r)>>1;
		if(qr<=mid)
			return query(ql,qr,ls(p),l,mid);
		if(ql>=mid+1)
			return query(ql,qr,rs(p),mid+1,r);
		return query(ql,qr,rs(p),mid+1,r)+query(ql,qr,ls(p),l,mid);
	}
	#undef ls
	#undef rs
}t;
vector<int>e[Max];
int n,m,fa[Max],son[Max],siz[Max],top[Max],ed[Max],rk[Max],order;
int rt[Max];
ll c[Max];
void init1(int u)
{
	siz[u]=1;
	for(auto v:e[u])
	{
		init1(v);
		siz[u]+=siz[v];
		if(siz[v]>siz[son[u]])
			son[u]=v;
	}
}
void init2(int u,int t)
{
	rk[u]=++order;
	ed[top[u]=t]=u;
	if(son[u])
		init2(son[u],t);
	for(auto v:e[u])
		if(v!=son[u])
			init2(v,v);
}
inline ll calc(int u)
{
	if(e[u].empty())
		return a[u];
	int v=ed[top[u]];
	node tmp=t.query(rk[u],rk[v]-1,1,1,n);
	return tmp(a[v]);
}
inline void build(int u)
{
	if(e[u].empty())
		f[u]=a[u],g[u]=b[u];
	else
	{
		int v=son[u];
		ll x=query(rt[u],c[u]);
		ll y=query(rt[u],c[u]-b[v]);
		t.modify(rk[u],1,1,n,node(x,y,x));
		if(u==top[u])
			f[u]=calc(u),g[u]=b[u];
	}
}
void init(int u)
{
	for(auto v:e[u])
		init(v);
	for(auto v:e[u])
		if(v!=son[u])
			insert(rt[u],v);
	build(u);
}
inline void modify(int u)
{
	int v=fa[u];
	if(v&&son[v]!=u)
		erase(rt[v],u);
	build(u);
	if(v&&son[v]!=u)
		insert(rt[v],u);
}
void update(int u)
{
	while(u)
	{
		modify(u);
		int v=fa[u];
		if(v&&top[v]!=v)
			build(v);
		u=top[v];
	}
}
bool mmp2;
signed main()
{
//	cerr<<(&mmp1-&mmp2)/1048576.0<<"\n";
	ios::sync_with_stdio(false);
	cin.tie(nullptr),cout.tie(nullptr);
	cin>>n>>m;
	for(int i=2;i<=n;++i)
		cin>>fa[i],e[fa[i]].push_back(i);
	for(int i=1;i<=n;++i)
		cin>>a[i];
	for(int i=1;i<=n;++i)
		cin>>b[i];
	for(int i=1;i<=n;++i)
		c[i]=a[i];
	for(int i=1;i<=n;++i)
		c[fa[i]]+=b[i];
	for(int i=1;i<=n;++i)
		rnd[i]=rng();
	init1(1),init2(1,1);
	init(1);
	int opt,u,x,y;
	while(m--)
	{
		cin>>opt;
		if(opt==1)
		{
			cin>>u>>x>>y;
			int v=fa[u];
			if(v)
				c[v]+=y-b[u];
			c[u]+=x-a[u];
			a[u]=x,b[u]=y;
			modify(u);
			if(v)
			{
				modify(v);
				int w=fa[v];
				if(w)
				{
					if(top[w]!=w)
						build(w);
					update(top[w]);
				}
			}
		}
		else
		{
			cin>>x>>y;
			ll p=calc(x),q=calc(y);
			if(p>q||(p==q&&x>y))
				cout<<"0\n";
			else
				cout<<"1\n";
		}
	}
	return 0;
}