#include<iostream>
#include<algorithm>
#include<cstdio>
#define MAXN 200010
using namespace std;
int n,m,c=1;
int head[MAXN],deep[MAXN],son[MAXN],size[MAXN],fa[MAXN],top[MAXN];
int val[MAXN],root[MAXN];
struct Tree{
int next,to;
}a[MAXN];
struct Question{
int u,v,w;
}que[MAXN];
inline int read(){
int date=0;char c=0;
while(c<‘0‘||c>‘9‘)c=getchar();
while(c>=‘0‘&&c<=‘9‘){date=date*10+c-‘0‘;c=getchar();}
return date;
}
namespace CT{
int size=0;
struct Chairmen_Tree{
int sum,l,r;
}a[MAXN*20];
inline void buildtree(){
root[0]=a[0].l=a[0].r=a[0].sum=0;
}
void insert(int k,int l,int r,int &rt){
a[++size]=a[rt];rt=size;
a[rt].sum++;
if(l==r)return;
int mid=l+r>>1;
if(k<=mid)insert(k,l,mid,a[rt].l);
else insert(k,mid+1,r,a[rt].r);
}
int query(int u,int v,int fa,int fafa,int l,int r,int lside,int rside){
int ans=0;
if(l<=lside&&rside<=r)return (a[u].sum+a[v].sum-a[fa].sum-a[fafa].sum);
int mid=lside+rside>>1;
if(l<=mid)ans+=query(a[u].l,a[v].l,a[fa].l,a[fafa].l,l,r,lside,mid);
if(mid<r)ans+=query(a[u].r,a[v].r,a[fa].r,a[fafa].r,l,r,mid+1,rside);
return ans;
}
}
inline void add(int x,int y){
a[c].to=y;a[c].next=head[x];head[x]=c++;
}
void dfs1(int rt){
son[rt]=0;size[rt]=1;
root[rt]=root[fa[rt]];
if(val[rt])CT::insert(val[rt],1,m,root[rt]);
for(int i=head[rt],will;i;i=a[i].next){
will=a[i].to;
deep[will]=deep[rt]+1;
fa[will]=rt;
dfs1(will);
size[rt]+=size[will];//就是这里!当初我把两个弄反了。。。然后就。。。
if(size[son[rt]]<size[will])son[rt]=will;
}
}
void dfs2(int rt,int f){
top[rt]=f;
if(son[rt])dfs2(son[rt],f);
for(int i=head[rt];i;i=a[i].next){
int will=a[i].to;
if(will!=fa[rt]&&will!=son[rt])dfs2(will,will);
}
}
int LCA(int x,int y){
while(top[x]!=top[y]){
if(deep[top[x]]<deep[top[y]])swap(x,y);
x=fa[top[x]];
}
if(deep[x]>deep[y])swap(x,y);
return x;
}
void work(){
int u,v,w,lca;
for(int i=1;i<=m;i++)if(que[i].u){
u=que[i].u;v=que[i].v;w=que[i].w;
lca=LCA(u,v);
w=i-w-1;
printf("%d ",deep[u]+deep[v]-2*deep[lca]+1);
if(w<1)printf("0\n");
else printf("%d\n",CT::query(root[u],root[v],root[lca],root[fa[lca]],1,w,1,m));
}
}
void init(){
int f,u,root;
n=read();
CT::buildtree();
for(int i=1;i<=n;i++){
u=read();
if(u)add(u,i);
else root=i;
val[i]=0;
}
m=read();
for(int i=1;i<=m;i++){
f=read();que[i].u=0;
if(f==1){
que[i].u=read();que[i].v=read();que[i].w=read();
}
else{
u=read();
val[u]=i;
}
}
deep[root]=1;
dfs1(root);
dfs2(root,root);
}
int main(){
init();
work();
return 0;
}