#include<bits/stdc++.h>
using namespace std;
constexpr int N=2e5+5,B=500,M=N/B+5;
int n,m,fa[N],ibl[N],bl[M],br[M],tot,nxt[N],tag[M],num[N];bool ful[M];
inline void reb(int id){
    if(ful[id]){
        if(tag[id]) for(int i=1;i<=n;i++) nxt[id]=max(1,nxt[id]-tag[id]);
        tag[id]=0;
        return;
    }
    ful[id]=1;
    for(int i=bl[id];i<=br[id];i++)
        if(fa[i]<bl[id]) nxt[i]=fa[i],num[i]=1;
        else ful[id]=0,nxt[i]=nxt[fa[i]],num[i]=num[fa[i]]+1;
}
vector<int> v[M];
int cnt[N],tmp[N];
int main(){
    std::ios::sync_with_stdio(0);cin.tie(0);cout.tie(0);
    cin>>n>>m;
    for(int i=2;i<=n;i++) cin>>fa[i];bl[1]=br[1]=ibl[1]=tot=ful[1]=num[1]=1;
    for(int l=2,r=min(n,B+1);l<=n;l=r+1,r=min(r+B,n)){
        bl[++tot]=l,br[tot]=r;
        for(int i=l;i<=r;i++) ibl[i]=tot;
        reb(tot);
    }
    while(m--){
        int op;cin>>op;
        if(op==1){
            int l,r,d;cin>>l>>r>>d;
            int L=ibl[l],R=ibl[r];
            auto upd=[&](int id,int l,int r){
                if(ful[id]){
                    reb(id);
                    for(int i=l;i<=r;i++) nxt[i]=max(1,nxt[i]-d);
                }
                else{
                    for(int i=l;i<=r;i++)fa[i]=max(1,fa[i]-d);
                    reb(id);
                }
            };
            if(L==R) upd(L,l,r);
            else{
                upd(L,l,br[L]);
                for(int i=L+1;i<R;i++)if(ful[i])tag[i]+=d;else upd(i,bl[i],br[i]);
                upd(R,bl[R],r);
            }
        }
        else{
            int k;cin>>k;
            int mn=n;
            auto upd=[&](int x){
                mn=min(mn,x);
                // cout<<"upd "<<x<<' '<<cnt[x]<<'\n';
                if(!cnt[x]) v[ibl[x]].push_back(x);
                cnt[x]++;
            };
            auto getn=[&](int x){return max(1,nxt[x]-tag[ibl[x]]);};
            for(int i=k;i;i--)cin>>k,upd(k);
            int ans=0;
            for(int i=tot;i>=1;i--)if(!v[i].empty()){
                bool f=0;
                if(ibl[mn]==i&&v[i].size()==1){ans++;cnt[v[i][0]]=0;v[i].clear();break;}
                for(int x:v[i]){
                    int fa=getn(x);
                    // cout<<i<<' '<<x<<" "<<fa<<' '<<num[x]<<'\n';
                    if(tmp[fa]) f=1;
                    tmp[fa]++;
                }bool ff=0;
                if(f&&!ful[i]){
                    for(int j=br[i];j>=bl[i];j--)if(cnt[j]){
                        ans++;cnt[j]=0;
                        // cout<<j<<' '<<mn<<'\n';
                        if(j==mn){ff=1;break;}
                        if(fa[j]>=bl[i]) cnt[fa[j]]++;
                        mn=min(mn,fa[j]);
                        
                    }
                }else for(int x:v[i]) ans+=num[x],cnt[x]=0;
                if(ibl[mn]==i&&ff){v[i].clear();break;}
                // cout<<"???";
                for(int x:v[i])if(x>1){
                    int z=getn(x);
                    upd(z),tmp[z]=0;
                }
                v[i].clear();
            }
            cout<<ans<<'\n';
        }
    }
}