Solution
哇我感觉这题真的qwq是很好的一题呀qwq
很神qwq反正我真的是自己想怎么想都想不到就是了qwq
首先先考虑一下简化版的问题应该怎么解决：
1、如果说我知道\\(x_1\\equiv k_1*x_2+b_1(mod\\ 10007)\\)，并且\\(x_2\\)已知，那么显然有当\\(k_1=0\\)时有\\(x_1=x_2\\)；\\(k_1=1\\)且\\(b_1=0\\)时有无数组解，\\(k_1=1\\)且\\(b_1\\)不为\\(0\\)时无解；\\(k_1>1\\)时逆元求解（因为\\(10007\\)是质数嘛）
2、如果说我知道\\(x_1\\equiv k_1*x_2+b_1(mod\\ 10007)\\)和\\(x_2\\equiv k_2*x_1+b_1(mod \\ 10007)\\)，那么怎么求\\(x_1\\)呢
有一种很粗暴的方法就是直接把第一条式子中的\\(x_2\\)用第二条式子的右边部分替换掉，然后直接解
然后我们可以想办法往这个方向靠
我们来小小的转化一下这个问题，我们考虑把每一条式子\\(x_i=k_i*x_{p_i}+b_i\\)，转化为由\\(x_{p_i}\\)向\\(x_i\\)连一条有向边，然后这样的话我们就可以得到一个。。基环外向树森林，大概是若干个长这个样子的东西（额当然这里没有把边的方向画出来）：
处理这样的东西，有一个比较套路的方法就是拆掉环上一条边然后变成树来维护处理
我们选环上的其中一个点作为这块东西的\\(rt\\)，然后将拆掉的那条边（某个点\\(y\\)指到\\(rt\\)）对应的点\\(y\\)记为\\(sp[rt]\\)，也就是\\(rt\\)的一个\\(special\\ father\\)
然后我们考虑用LCT来维护这个东西，但是具体维护什么呢
这里有一个很神的想法，对于每一个splay上的节点，我们维护其子树内最左边的节点\\(L\\)（也就是深度最浅的那个）的\\(sp\\)表达最右边的那个节点\\(R\\)（深度最深的那个）的表达式的两个系数，也就是：
对于splay上的每个节点我们维护上面这个式子里面的\\(k\\)和\\(b\\)分别是多少（记作\\(info[x].k\\)和\\(info[x].b\\)）
这样一来，我们对于一个节点\\(x_i\\)做了\\(access(x_i)\\)以及\\(splay(x_i)\\)之后，\\(info[x]\\)中存的表达式其实就是：
那么对于每次查询（记查询的那个点为\\(x_a\\)），我们需要做的就是用上面的操作得到\\(x_i\\)和\\(sp[rt]\\)之间的表达式，然后只要再得到\\(sp[rt]\\)关于自己的表达式我们就可以求出\\(sp[rt]\\)进而求得\\(x_i\\)了。后者的话因为根据定义\\(sp[rt]\\)应该是这棵树中的某个节点，所以我们直接用同样的\\(access+splay\\)操作就可以得到\\(sp[rt]\\)关于自己的表达式了
然后对于修改的话，我们需要分类讨论一下（可以自己画个图理解一下就很清晰了）
1、\\(rt=x\\)
这里又可以再分两类
如果说\\(p\\)在这棵树中，那么修改\\(sp[rt]\\)即可；否则\\(sp[rt]=0\\)然后将\\(rt\\)接到\\(p\\)这个节点上面去，作为\\(p\\)的一个儿子
2、\\(rt!=x\\)
不管别的首先我们都要将\\(x\\)和原来的\\(fa[x]\\)断开
如果说\\(x\\)在\\(rt\\)到\\(sp[rt]\\)的这个环上的话，断开之后会有一个影响，就是\\(sp[rt]\\)指向\\(rt\\)这条边不需要断开了，所以我们要将\\(rt\\)连到\\(sp[rt]\\)那里去作为其一个儿子
然后不管是\\(x\\)是否在环上，我们都要判断如果说\\(p\\)在这棵树上，那么\\(sp[x]=p\\)，否则\\(sp[x]=0\\)然后将\\(x\\)连到\\(p\\)那里去作为其一个儿子
这些都讨论完了之后，我们来想想这个关键的\\(info[x]\\)要怎么维护
注意到这个在\\(update\\)的时候是必须按照一定顺序的，因为一个节点\\(x\\)的信息只能和原树中的\\(fa[x]\\)合并
具体一点就是：
我们用\\(ch[x][0]\\)和\\(ch[x][1]\\)表示splay中\\(x\\)节点的左右儿子
假设我们现在知道\\(info[ch[x][0]]]\\)和\\(info[ch[x][1]]\\)，我们想要得到\\(info[x]\\)，那么其实只要先将\\(info[ch[x][0]]\\)表示的式子和\\(x\\)本身的式子先合并存为\\(info[x]\\)，再将\\(info[x]\\)与\\(info[ch[x][1]]\\)合并即可，具体的话就是因为左子树中深度最深的节点在原树上就是\\(fa[x]\\)，同理右子树中深度最浅的节点在原树上的\\(fa\\)就是\\(x\\)，所以直接这么合并就好了
想明白了的话还是挺好写的ovo（废话qwq然而我想了一天。。。）
代码大概长这个样子
#include<iostream>
#include<cstdio>
#include<cstring>
using namespace std;
const int N=30010,MOD=10007,LCT=N;
struct Data{
int k,b;
Data(){}
Data(int k1,int b1){k=k1; b=b1;}
friend Data operator + (Data x,Data y)
{return Data(x.k*y.k%MOD,(x.b*y.k%MOD+y.b)%MOD);}
}val[N];
int h[N],vis[N],Fa[N],inv[N];
int n,m,tot,Cnt;
namespace Lct{/*{{{*/
int ch[LCT][10],fa[LCT],sp[LCT];
Data info[LCT];
int tot;
bool isroot(int x){return ch[fa[x]][0]!=x&&ch[fa[x]][1]!=x;}
int which(int x){return ch[fa[x]][1]==x;}
void update(int x){//order is important
info[x]=val[x];
if (ch[x][0]) info[x]=info[ch[x][0]]+info[x];
if (ch[x][1]) info[x]=info[x]+info[ch[x][1]];
}
void rotate(int x){
int dir=which(x),f=fa[x];
if (!isroot(f)) ch[fa[f]][which(f)]=x;
fa[x]=fa[f]; fa[f]=x;
if (ch[x][dir^1]) fa[ch[x][dir^1]]=f;
ch[f][dir]=ch[x][dir^1];
ch[x][dir^1]=f;
update(f); update(x);
}
void splay(int x){
for (int f=fa[x];!isroot(x);f=fa[x]){
if (!isroot(f))
rotate(which(f)==which(x)?f:x);
rotate(x);
}
}
void access(int x){
for (int last=0;x;last=x,x=fa[x]){
splay(x);
ch[x][1]=last;
update(x);
}
}
int get_rt(int x){
access(x); splay(x);
while (ch[x][0]) x=ch[x][0];
return x;
}
void query(int x){
Data tmp1,tmp2;
access(x); splay(x);
tmp1=info[x];//sp[rt]-->x
int rt=get_rt(x);
access(sp[rt]); splay(sp[rt]);
tmp2=info[sp[rt]];//sp[rt]-->sp[rt]
if (tmp2.k==1){
if (tmp2.b==0) printf("-2\\n");
else printf("-1\\n");
}
else{
int valrt=inv[(1-tmp2.k+MOD)%MOD]*tmp2.b%MOD;
printf("%d\\n",(tmp1.k*valrt%MOD+tmp1.b)%MOD);
}
}
void Cut(int x){
access(x); splay(x);
ch[x][0]=fa[ch[x][0]]=0;
update(x);
}
bool InCir(int x,int y){//x in cir(y,sp[y])?
access(sp[y]);
splay(sp[y]);
splay(x);
return x==sp[y]||(!isroot(sp[y]));
}
void change(int x,int k,int p,int b){
access(x);
splay(x);
val[x]=Data(k,b);
update(x);
int rt=get_rt(x);
if (rt==x){
if (get_rt(p)==rt) sp[x]=p;
else sp[rt]=0,fa[rt]=p;
}
else{
if (InCir(x,rt)){
Cut(x);
splay(rt);
fa[rt]=sp[rt];
sp[rt]=0;
}
else
Cut(x);
if (get_rt(p)==x)
sp[x]=p;
else
sp[x]=0,fa[x]=p;
}
}
}/*}}}*/
void prework(int x){
vis[x]=Cnt;
Lct::fa[x]=Fa[x];
if (vis[Fa[x]]==Cnt){
Lct::fa[x]=0;
Lct::sp[x]=Fa[x];
return;
}
prework(Fa[x]);
}
void get_inv(int n){
inv[1]=1;
for (int i=2;i<=n;++i)
inv[i]=(MOD-MOD/i)*inv[MOD%i]%MOD;
};
int main(){/*{{{*/
#ifndef ONLINE_JUDGE
freopen("a.in","r",stdin);
#endif
char op[5];
int x,p,k,b;
scanf("%d",&n);
for (int i=1;i<=n;++i)
scanf("%d%d%d",&val[i].k,&Fa[i],&val[i].b);
get_inv(N-10);
Cnt=0;
for (int i=1;i<=n;++i)
if (!vis[i])
++Cnt,prework(i);
scanf("%d",&m);
for (int i=1;i<=m;++i){
scanf("%s",op);
if (op[0]==\'A\'){
scanf("%d",&x);
Lct::query(x);
}
else{
scanf("%d%d%d%d%d",&x,&k,&p,&b);
Lct::change(x,k,p,b);
}
}
}/*}}}*/