#include<bits/stdc++.h>

using namespace std;
typedef long long ll;
typedef pair<int,int> pii;
typedef pair<pii,int> ppii;
typedef pair<int,pii> pipi;
typedef pair<ll,ll> pll;
typedef pair<ll,pll> plpl;
typedef tuple<ll,ll,ll> tl;
ll mod=1000000007;
ll mod2=998244353;
ll inf=1000000000000000000;
#define rep(i,m,n) for(int i=m;i<n;i++)
#define rrep(i,n,m) for(int i=n;i>=m;i--)
ll lmax(ll a,ll b){
    if(a<b)return b;
    else return a;
}
ll lmin(ll a,ll b){
    if(a<b)return a;
    else return b;
}
ll par[200010];
ll par2[200010];
void init(ll n){
    for(int i=0;i<n;i++){
        par[i]=i;
        par2[i]=i;
    }
}
ll root(ll n){
    if(par[n]==n)return n;
    return par[n]=root(n+1);
}
ll root2(ll n){
    if(par2[n]==n)return n;
    return par2[n]=root2(n-1);
}
void unit(ll a,ll b){
    a=root(a);
    b=root(b);
    if(a==b)return;
    if(a<b){
        par[a]=b;
    }
    else par[b]=a;
    a=root2(a);
    b=root2(b);
    if(a<b){
        par2[b]=a;
        
    }
    else par2[a]=b;
}
void sepa(ll a,ll b){
    if(a<b){
        par[a]=a;
        par2[b]=b;
    }
    else{
        par[b]=b;
        par2[a]=a;
    }
    
}
ll bit[400010];
ll u;
void bitinit(ll n){
    rep(i,0,69){
        ll y=pow(2,i);
        if(y>=n){
            u=y;
            break;
        }
    }
    fill(bit,bit+u+10,0);
}
void add(ll n,ll x){
    ll i=n;
    bit[i]+=x;
    while(i<u){
        i+=i&(-i);
        bit[i]+=x;
    }
}
ll sum(ll n){
    ll i=n;
    ll ret=0;
    while(i>0){
        ret+=bit[i];
        i-=i&(-i);
    }
    return ret;
}
int main(){
    ll n,q;cin>>n>>q;
    ll a[n];rep(i,0,n)cin>>a[i];
    init(n+1);
    bitinit(n+1);
    rep(i,0,n)add(i+1,a[i]);
    rep(i,0,q){
        ll c,x;cin>>c>>x;
        if(c==1){
            unit(x,x+1);
        }
        if(c==2){
            sepa(x,x+1);
        }
        if(c==3){
            add(x,1);
        }
        if(c==4){
            ll l=root2(x);
            ll r=root(x);
            ll e=sum(r)-sum(l-1);
            cout<<e<<endl;
        }
        //cout<<root(2)<<" "<<root2(2)<<endl;
    }
    //cout<<par2[1]<<" "<<par2[2]<<endl;
}