rt

#include <bits/stdc++.h>
using namespace std;
const int N=5e4+5,mod=201314;
int n,m;
vector<int> g[N];
int dep[N],f[N],siz[N],mxson[N];
int dfn[N],top[N];
int cnt=0;
void dfs1(int x,int fa){
	siz[x]=1;
	f[x]=fa;
	dep[x]=dep[fa]+1;
	for(int i=0;i<g[x].size();i++){
		int y=g[x][i];
		if(y==fa)continue;
		dfs1(y,x);
		siz[x]+=siz[y];
		if(siz[mxson[x]]<siz[y])mxson[x]=y;
	}
}
void dfs2(int x,int topf){
	top[x]=topf;
	dfn[x]=++cnt;
	if(!mxson[x])return;
	dfs2(mxson[x],topf);
	for(int i=0;i<g[x].size();i++){
		int y=g[x][i];
		if(y==f[x]||y==mxson[x])continue;
		dfs2(y,y);
	}
}
struct tree{
	int l,r,sum,laz;
}t[N*4];
void build(int p,int l,int r){
	t[p].l=l,t[p].r=r;
	t[p].sum=0,t[p].laz=0;
	if(l==r)return;
	int mid=(l+r)>>1;
	build(p<<1,l,mid);
	build(p<<1|1,mid+1,r);
}
struct d{
	int id,isl,pos,z;
}q[N*2];
int ans[N];
bool cmp(d x,d y){
	return x.pos<y.pos;
}
int pre;
void pushdown(int p){
	if(t[p].laz){
		t[p<<1].laz=(t[p].laz+t[p<<1].laz)%mod;
		t[p<<1|1].laz=(t[p].laz+t[p<<1|1].laz)%mod;
		t[p<<1].sum=(1ll*t[p].laz*(t[p<<1].r-t[p<<1].l+1)%mod+t[p<<1].sum)%mod;
		t[p<<1|1].sum=(1ll*t[p].laz*(t[p<<1|1].r-t[p<<1|1].l+1)%mod+t[p<<1|1].sum)%mod;
		t[p].laz=0;
	}
}
void update(int p){
	t[p].sum=(t[p<<1].sum+t[p<<1|1].sum)%mod;
}
void modify(int l,int r,int p,int k){
	if(l==t[p].l&&r==t[p].r){
		t[p].sum=(t[p].sum+1ll*(r-l+1)*k%mod)%mod;
		t[p].laz=(t[p].laz+k)%mod;
		return;
	}
	pushdown(p);
	int mid=(t[p].l+t[p].r)>>1;
	if(r<=mid)modify(l,r,p<<1,k);
	else if(l>mid)modify(l,r,p<<1|1,k);
	else{
		modify(l,mid,p<<1,k);
		modify(mid+1,r,p<<1|1,k);
	}
	update(p);
}
int query(int l,int r,int p){
	if(t[p].l==l&&t[p].r==r)return t[p].sum;
	pushdown(p);
	int ans=0;
	int mid=(t[p].l+t[p].r)>>1;
	if(r<=mid)ans+=query(l,r,p<<1);
	else if(l>mid)ans+=query(l,r,p<<1|1);
	else{
		ans=(ans+query(l,mid,p<<1))%mod;
		ans=(ans+query(mid+1,r,p<<1|1))%mod;
	}
	return ans;
}
void change(int x,int y){
	while(top[x]!=top[y]){
		if(dep[top[x]]>=dep[top[y]]){
			modify(dfn[top[x]],dfn[x],1,1);
			x=f[top[x]];
		}else{
			modify(dfn[top[y]],dfn[y],1,1);
			y=f[top[y]];			
		}
	}
	if(dep[x]>=dep[y])modify(dfn[y],dfn[x],1,1);
	else modify(dfn[x],dfn[y],1,1);
}
int query_route(int x,int y){
	int ans=0;
	while(top[x]!=top[y]){
		if(dep[top[x]]>=dep[top[y]]){
			ans=(ans+query(dfn[top[x]],dfn[x],1))%mod;
			x=f[top[x]];
		}else{
			ans=(ans+query(dfn[top[y]],dfn[y],1))%mod;
			y=f[top[y]];			
		}
	}
	if(dep[x]>=dep[y])ans=(ans+query(dfn[y],dfn[x],1))%mod;
	else ans=(ans+query(dfn[x],dfn[y],1))%mod;
}
int main(){
	scanf("%d%d",&n,&m);
	for(int i=2;i<=n;i++){
		int x;
		scanf("%d",&x);
		x++;
		g[x].push_back(i);
		g[i].push_back(x);
	}
	dfs1(1,0);
	dfs2(1,1);
	build(1,1,n);
	for(int i=1;i<=m;i++){
		int l,r,z;
		scanf("%d%d%d",&l,&r,&z);
		l++,r++,z++;
		q[i*2-1]=(d){i,1,l-1,z};
		q[i*2]=(d){i,0,r,z};
	} 
	sort(q+1,q+2*m+1,cmp);
	for(int i=1;i<=2*m;i++){
		for(int j=q[pre].pos+1;j<=q[i].pos;j++){
			change(1,j);
		}
		pre=i;
		if(q[i].isl)ans[q[i].id]=query_route(1,q[i].z);
		else ans[q[i].id]=(query_route(1,q[i].z)-ans[q[i].id]+mod)%mod;
	}
	for(int i=1;i<=m;i++)printf("%d\n",ans[i]);
	return 0;
}