#include<bits/stdc++.h>
typedef long long ll;
typedef long double ld;
typedef unsigned long long ull;
#define pii pair<ll,ll>
#define rep(i,a,b) for(ll i=(a);i<=(b);++i)
#define per(i,a,b) for(ll i=(a);i>=(b);--i)
using namespace std;
bool Mbe;
ll read(){
    ll x=0,f=1;char ch=getchar();
    while(ch<'0'||ch>'9'){if(ch=='-')f=-1;ch=getchar();}
    while(ch>='0'&&ch<='9'){x=x*10+ch-'0';ch=getchar();}
    return x*f;
}
void write(ll x){
    if(x<0)putchar('-'),x=-x;
    if(x>9)write(x/10);
    putchar(x%10+'0');
}
const ll N=2e5+9;
ll n,m,a[N],fa[N];
vector<ll>to[N];
ll tr[N<<2],tag[N<<2],cnt[N<<2],sm[N<<2],tagh[N<<2];
void Build(ll x,ll l,ll r){
    cnt[x]=r-l+1;
    if(l==r)return ;
    ll mid=(l+r)>>1;
    Build(x<<1,l,mid);
    Build(x<<1|1,mid+1,r);
}
void Pushtag(ll x,ll k){
    tr[x]+=k,tag[x]+=k;
}
void Pushsum(ll x,ll k){
    sm[x]+=k*cnt[x],tagh[x]+=k;
}
void Pushup(ll x){
    tr[x]=min(tr[x<<1],tr[x<<1|1]);
    sm[x]=sm[x<<1]+sm[x<<1|1];
    cnt[x]=(tr[x<<1]==tr[x])*cnt[x<<1]+(tr[x<<1|1]==tr[x])*cnt[x<<1|1];
}
void Pushdown(ll x){
    if(tag[x]){
        Pushtag(x<<1,tag[x]);
        Pushtag(x<<1|1,tag[x]);
        tag[x]=0;
    }
    if(tagh[x]){
        if(tr[x<<1]==tr[x])Pushsum(x<<1,tagh[x]);
        if(tr[x<<1|1]==tr[x])Pushsum(x<<1|1,tagh[x]);
        tagh[x]=0;
    }
}
void Upd(ll x,ll l,ll r,ll ql,ll qr,ll k){
    if(ql<=l&&r<=qr){
        Pushtag(x,k);
        return ;
    }
    ll mid=(l+r)>>1;
    Pushdown(x);
    if(ql<=mid)Upd(x<<1,l,mid,ql,qr,k);
    if(qr>mid)Upd(x<<1|1,mid+1,r,ql,qr,k);
    Pushup(x);
}
void Hist(ll x,ll l,ll r,ll ql,ll qr){
    if(ql<=l&&r<=qr){
        if(tr[x])return ;
        Pushsum(x,1);
        return ;
    }
    ll mid=(l+r)>>1;
    Pushdown(x);
    if(ql<=mid)Hist(x<<1,l,mid,ql,qr);
    if(qr>mid)Hist(x<<1|1,mid+1,r,ql,qr);
    Pushup(x);
}
ll Query(ll x,ll l,ll r,ll ql,ll qr){
    if(ql<=l&&r<=qr)return sm[x];
    ll mid=(l+r)>>1;
    Pushdown(x);
    if(qr<=mid)return Query(x<<1,l,mid,ql,qr);
    if(ql>mid)return Query(x<<1|1,mid+1,r,ql,qr);
    return Query(x<<1,l,mid,ql,qr)+Query(x<<1|1,mid+1,r,ql,qr);
}
struct E{
    int l,r,sgn,nxt;
}es[N*40];
int tote,hd[N];
void adde(int x,int l,int r,int sgn){
    if(x>n||x<=0)return ;
    es[++tote]=(E){l,r,sgn,hd[x]};
    hd[x]=tote;
}
void Addq(ll lx,ll rx,ll ly,ll ry){
    adde(lx-1,ly,ry,-1),adde(rx,ly,ry,1);
}
ll sz[N],son[N],dfn[N],tim,ord[N];
void dfs1(ll x){
    sz[x]=1,dfn[x]=++tim,ord[tim]=x;
    for(ll y:to[x]){
        dfs1(y);
        sz[x]+=sz[y];
        if(sz[y]>sz[son[x]])son[x]=y;
    }
}
set<ll>S;
void Addp(ll x,ll sgn){
    if(sgn==1)S.insert(a[x]);
    else S.erase(S.find(a[x]));
}
void Cons(ll x,ll y,ll z){
    if(z<x)Addq(z+1,x,y,n);
    else if(z>y)Addq(1,x,y,z-1);
}
void Add(ll x,ll sgn,ll z){
    if(sgn==1){
        if(!S.empty()){
            rep(i,dfn[x],dfn[x]+sz[x]-1){
                ll u=ord[i];
                auto it=S.lower_bound(a[u]);
                if(it!=S.begin())Cons(*prev(it),a[u],a[z]);
                if(it!=S.end())Cons(a[u],*it,a[z]);
            }
        }
    }
    rep(i,dfn[x],dfn[x]+sz[x]-1)Addp(ord[i],sgn);
}
void dfs2(ll x,bool heavy=0){
    for(ll y:to[x]){
        if(y==son[x])continue;
        dfs2(y);
    }
    if(son[x])dfs2(son[x],1);
    for(ll y:to[x]){
        if(y==son[x])continue;
        Add(y,1,x);
    }
    Addp(x,1);
    if(heavy)return;
    Add(x,0,x);
}
vector<pii>vq[N];
ll ans[N];
bool Med;
int main(){
    cerr<<fabs(&Med-&Mbe)/1048576.0<<"MB\n";
    n=read(),m=read();
    rep(i,1,n)a[i]=read();
    rep(i,2,n)fa[i]=read(),to[fa[i]].push_back(i);
    dfs1(1),dfs2(1);
    Build(1,1,n);
    rep(i,1,m){
        ll l=read(),r=read();
        vq[l].push_back({r,i});
    }
    per(i,n,1){
        for(ll j=hd[i];j;j=es[j].nxt){
            ll l=es[j].l,r=es[j].r,sgn=es[j].sgn;
            Upd(1,1,n,l,r,sgn);
        }
        Hist(1,1,n,i,n);
        for(pii p:vq[i])ans[p.second]=Query(1,1,n,i,p.first);
    }
    rep(i,1,m)write(ans[i]),putchar('\n');
    cerr<<"\n"<<clock()*1.0/CLOCKS_PER_SEC*1000<<"ms\n";
    return 0;
}