#include <bits/stdc++.h>

#define rep(i, j, k) for (int i = (j); i <= (k); ++i)
#define per(i, j, k) for (int i = (j); i >= (k); --i)
#define SZ(v) int((v).size())
#define ALL(v) (v).begin(),(v).end()
#define fi first
#define se second
using ll = long long;
using pii = std::pair<int, int>;
using pll = std::pair<ll, ll>;

template<class T>inline void chkmn(T &x, T y) { if (y < x) x = y; }
template<class T>inline void chkmx(T &x, T y) { if (y > x) x = y; }

using namespace std;

const int maxn = 200010;
const int maxm = maxn * 50;
mt19937 rnd(1145141);

struct node {
  ll sumb, mn;
  node() { sumb = mn = 0; }
  node(ll f, ll b) { sumb = b, mn = f; }
  friend node operator+(node x, node y) {
    node res;
    res.sumb = x.sumb + y.sumb;
    res.mn = min(x.mn, x.sumb + y.mn);
    return res;
  }
} sum[maxm], val[maxm];

struct info {
  ll lim, x, y;
  info() { }
  info(ll a, ll b, ll c) { lim = a, x = b, y = c; }
  // < lim, x, else y
  ll f(ll w) { return w < lim ? x : y; }
  friend info operator+(info x, info y) {
    return info(x.lim, y.f(x.x), y.f(x.y));
  }
} t[maxn << 2];

int sid, n, q, fa[maxn], rt[maxn], ls[maxm], rs[maxm], kval[maxm], tot;
int son[maxn], dfn[maxn], top[maxn], sz[maxn], tail[maxn], timer;
ll a[maxn], b[maxn], f[maxn], bsum[maxn], g[maxn];
pll pval[maxm];
vector<int> e[maxn];

#define mid ((l + r) >> 1)

void upd(int c, int l, int r, int x, info v) {
  if (l == r) return t[c] = v, void();
  if (x <= mid) upd(c << 1, l, mid, x, v);
  else upd(c << 1 | 1, mid + 1, r, x, v);
  t[c] = t[c << 1 | 1] + t[c << 1];
}

info qry(int c, int l, int r, int x, int y) {
  if (l == x && r == y) return t[c];
  if (y <= mid) return qry(c << 1, l, mid, x, y);
  else if (x > mid) return qry(c << 1 | 1, mid + 1, r, x, y);
  else return qry(c << 1 | 1, mid + 1, r, mid + 1, y) + qry(c << 1, l, mid, x, mid);
}

#undef mid

void solve(int u) {
  vector<pll> vec;
  ll sum = 0;
  for (int v : e[u]) {
    solve(v), sum += b[v];
    vec.emplace_back(f[v], v);
  }
  sort(ALL(vec), greater<>());
  rep (i, 0, SZ(vec) - 1) {
    if (a[u] + sum > vec[i].fi) return f[u] = a[u] + sum, void();
    sum -= b[vec[i].se];
  }
  f[u] = a[u];
}

int nnd(ll f, ll b, int x) {
  pval[++tot] = pll(f, x), sum[tot] = val[tot] = node(f, b);
  return kval[tot] = rnd(), tot;
}

void pushup(int x) {
  sum[x] = val[x];
  if (ls[x]) sum[x] = sum[ls[x]] + sum[x];
  if (rs[x]) sum[x] = sum[x] + sum[rs[x]];
}

int merge(int x, int y) {
  if (!x || !y) return x ^ y;
  if (kval[x] < kval[y]) return rs[x] = merge(rs[x], y), pushup(x), x;
  else return ls[y] = merge(x, ls[y]), pushup(y), y;
}

void split(int x, pll v, int &p, int &q) {
  if (!x) return p = q = 0, void();
  if (pval[x] >= v) p = x, split(rs[x], v, rs[p], q);
  else q = x, split(ls[x], v, p, ls[q]);
  pushup(x);
}

ll find(int x, ll lim) {
  if (!x) return 0;
  if (ls[x] && sum[ls[x]].mn < lim) return find(ls[x], lim);
  if (sum[ls[x]].sumb + val[x].mn < lim) return sum[ls[x]].sumb;
  return sum[ls[x]].sumb + val[x].sumb + find(rs[x], lim - sum[ls[x]].sumb - val[x].sumb);
}

void show(int x) {
  if (!x) return;
  show(ls[x]);
  cerr << "(" << val[x].sumb << "," << val[x].mn << ") ";
  show(rs[x]);
}

void ins(int &rt, ll f, ll b, ll x) {
  int p, q;
  split(rt, pll(f, x), p, q);
  rt = merge(merge(p, nnd(f, b, x)), q);
}

void del(int &rt, ll f, ll b, ll x) {
  int p, w, q;
  split(rt, pll(f, x), p, q), split(p, pll(f, x + 1), p, w);
  rt = merge(p, q);
}

void calc(int u) {
  if (u == tail[top[u]]) return upd(1, 1, n, dfn[u], info(a[u], a[u], a[u])), void();
  ll cur = a[u] + bsum[u] - find(rt[u], a[u] + bsum[u]);
  ll w = a[u] + bsum[u] - b[son[u]] - find(rt[u], a[u] + bsum[u] - b[son[u]]);
  upd(1, 1, n, dfn[u], info(cur, cur, w));
}

void dfs1(int u) {
  sz[u] = 1;
  for (int v : e[u]) {
    dfs1(v), sz[u] += sz[v];
    if (sz[v] > sz[son[u]]) son[u] = v;
  }
}

void dfs2(int u, int t) {
  top[u] = t, tail[t] = u, dfn[u] = ++timer;
  if (!son[u]) return;
  dfs2(son[u], t);
  for (int v : e[u]) if (v != son[u]) dfs2(v, v);
}

ll get(int u) {
  return qry(1, 1, n, dfn[u], dfn[tail[top[u]]]).f(0);
}

int main() {
  cin.tie(nullptr) -> ios::sync_with_stdio(false);
  cin >> n >> q;
  rep (i, 2, n) cin >> fa[i];
  rep (i, 2, n) e[fa[i]].emplace_back(i);
  rep (i, 1, n) cin >> a[i];
  rep (i, 1, n) cin >> b[i], bsum[fa[i]] += b[i];
  dfs1(1), dfs2(1, 1), solve(1);
  rep (i, 2, n) if (i != son[fa[i]]) ins(rt[fa[i]], f[i], b[i], i);
  rep (i, 1, n) calc(i);
  // rep (i, 1, n) cerr << get(i) << " \n"[i == n];
  // rep (i, 1, n) cerr << f[i] << " \n"[i == n];
  rep (i, 1, n) assert(f[i] == get(i));
  while (q--) {
    int op, x, y;
    cin >> op >> x;
    if (op == 1) {
      int p = top[x];
      while (p != 1) {
        del(rt[fa[p]], get(p), b[p], p);
        p = top[fa[p]];
      }
      bsum[fa[x]] -= b[x], cin >> a[x] >> b[x], bsum[fa[x]] += b[x];
      calc(x);
      if (fa[x]) calc(fa[x]);
      p = top[x];
      while (p != 1) {
        ins(rt[fa[p]], get(p), b[p], p), calc(fa[p]);
        p = top[fa[p]];
      }
    } else {
      cin >> y;
      cout << (pll(get(x), x) > pll(get(y), y) ? 0 : 1) << '\n';
    }
  }
}