Problem: Yuezheng Ling gives Luo Tianyi a tree which has n nodes, rooted at 1. 

Luo Tianyi will tell you that the parent of the i-th node is a_i (1 ≤ a_i<i for 2 ≤ i ≤ n), and she will ask you to perform q queries of 2 types:

  1. She'll give you three integers l, r and x (2 ≤ l ≤ r ≤ n, 1 ≤ x ≤ 10^5). You need to replace a_i with max(a_i-x,1) for all i with l ≤ i ≤ r.
  2. She'll give you two integers u, v (1 ≤ u, v ≤ n). You need to find the [LCA](https://en.wikipedia.org/wiki/Lowest_common_ancestor) of nodes u and v (their lowest common ancestor).

Input

The first line contains two integers n and q (2≤ n,q ≤ 10^5) — the number of nodes and the number of queries, respectively.

The second line contains n-1 integers a_2, a_3,..., a_n (1 ≤ a_i < i), where a_i is the parent of the node i.

Next q lines contain queries. For each query, the first integer of each line is t (t = 1 or 2) — the type of the query. 

If t = 1, this represents the query of the first type. Then, three integers will follow: l, r, x (2 ≤ l ≤ r ≤ n, 1 ≤ x ≤ 10^5), meaning that you have to replace a_i with max(a_i-x,1) for all i with l ≤ i ≤ r.

If t = 2, this represents the query of the second type. Then, two integers will follow: u and v (1 ≤ u, v ≤ n), and you have to find the LCA of u and v. 

It's guaranteed that there is at least one query of the second type.

Output

For each query of the second type output answer on a new line.

Example

Input


6 4
1 2 3 3 4
2 3 4
1 2 3 1
2 5 6
2 2 3


Output


3
3
1

Note

The tree in example is shown below.

<image>

After the query of the first type, the tree changes and is looking as shown below.

<image>

Solution (in CPP):

Solution:
%:pragma GCC optimize(3)
%:pragma GCC optimize("Ofast")
%:pragma GCC optimize("inline")
%:pragma GCC optimize("-fgcse")
%:pragma GCC optimize("-fgcse-lm")
%:pragma GCC optimize("-fipa-sra")
%:pragma GCC optimize("-ftree-pre")
%:pragma GCC optimize("-ftree-vrp")
%:pragma GCC optimize("-fpeephole2")
%:pragma GCC optimize("-ffast-math")
%:pragma GCC optimize("-fsched-spec")
%:pragma GCC optimize("unroll-loops")
%:pragma GCC optimize("-falign-jumps")
%:pragma GCC optimize("-falign-loops")
%:pragma GCC optimize("-falign-labels")
%:pragma GCC optimize("-fdevirtualize")
%:pragma GCC optimize("-fcaller-saves")
%:pragma GCC optimize("-fcrossjumping")
%:pragma GCC optimize("-fthread-jumps")
%:pragma GCC optimize("-funroll-loops")
%:pragma GCC optimize("-fwhole-program")
%:pragma GCC optimize("-freorder-blocks")
%:pragma GCC optimize("-fschedule-insns")
%:pragma GCC optimize("inline-functions")
%:pragma GCC optimize("-ftree-tail-merge")
%:pragma GCC optimize("-fschedule-insns2")
%:pragma GCC optimize("-fstrict-aliasing")
%:pragma GCC optimize("-fstrict-overflow")
%:pragma GCC optimize("-falign-functions")
%:pragma GCC optimize("-fcse-skip-blocks")
%:pragma GCC optimize("-fcse-follow-jumps")
%:pragma GCC optimize("-fsched-interblock")
%:pragma GCC optimize("-fpartial-inlining")
%:pragma GCC optimize("no-stack-protector")
%:pragma GCC optimize("-freorder-functions")
%:pragma GCC optimize("-findirect-inlining")
%:pragma GCC optimize("-fhoist-adjacent-loads")
%:pragma GCC optimize("-frerun-cse-after-loop")
%:pragma GCC optimize("inline-small-functions")
%:pragma GCC optimize("-finline-small-functions")
%:pragma GCC optimize("-ftree-switch-conversion")
%:pragma GCC optimize("-foptimize-sibling-calls")
%:pragma GCC optimize("-fexpensive-optimizations")
%:pragma GCC optimize("-funsafe-loop-optimizations")
%:pragma GCC optimize("inline-functions-called-once")
%:pragma GCC optimize("-fdelete-null-pointer-checks")

#include <bits/stdc++.h>
using namespace std;

using ll = long long;

namespace read_io {
    const int BUFSIZE = 120 << 20;
    char Buf[BUFSIZE], *buf = Buf;
    char oBuf[BUFSIZE], *obuf = oBuf;

    int a[20];

    void init() {
        Buf[fread(Buf, 1, BUFSIZE, stdin)] = 0;
    }

    void flush() {
        fwrite(oBuf, 1, obuf-oBuf, stdout);
    }

    template <class T>
    inline void read(T &x) {
        x = 0;
        while (!isdigit(*buf)) buf++;
        while (isdigit(*buf)) { x *= 10; x += *buf - '0'; buf++; }
    }

    template <class T>
    inline void pt(T u) {
		static int * q = a;
		if (!u) *obuf++ = 48;
		else {
			while (u) *q++ = u % 10 + '0', u /= 10;
			while (q != a) *obuf++ = *--q;
		}
	}
	template <class T>
	inline void print(T a) {
		pt(a) , *obuf++ = '\n';
	}
}

using read_io::read;
using read_io::print;

const int B = 100;

const int maxn = 100100;

int p[maxn];
int a[maxn], lazy[maxn / B + 5];

int main(void) {
    //freopen("h.in", "r", stdin);
    read_io::init();

    int n, q; read(n), read(q);
    for (int i=1; i<n; i++) read(a[i]), a[i]--;
    for (int i=1; i<n; i++) p[i] = (i/B == a[i]/B) ? p[a[i]] : i;

    auto get_parent = [](int i) -> int { return max(a[i] - lazy[i/B], 0); };

    auto get_p = [&](int i) {
        for (int j=i*B, k=i*B+B; j<k; j++) {
            int pa = max(a[j] - lazy[i], 0);
            if (i == pa/B) p[j] = p[pa];
            else p[j] = j;
        }
    };

    for (int _q=0; _q<q; _q++) {
        int t, u, v, x; read(t), read(u), read(v);
        u--, v--;
        if (t == 1) {
            read(x);
            for (int i=u/B; i<=v/B; i++) {
                if (u <= i*B && i*B+B-1 <= v) {
                    if (lazy[i] < B) {
                        lazy[i] += x; if (lazy[i] > n) lazy[i] = n;
                        get_p(i);
                    } else {
                        lazy[i] += x; if (lazy[i] > n) lazy[i] = n;
                    }
                } else {
                    for (int j=max(u, i*B), j_end=min(v, i*B+B-1); j<=j_end; j++) {
                        a[j] -= x; if (a[j] < 0) a[j] = 0;
                    }
                    get_p(i);
                }
            }
        } else {
            while (u != v) {
                if(u > v) swap(u,v);
                if(p[u]==p[v]) v = get_parent(v);
                else v = get_parent(p[v]);
            }
            print(u + 1);
//            printf("%d\n", u + 1);
        }
    }
    read_io::flush();

    return 0;
}