type

  arr=record

    toward,next:longint;

  end;

const

  maxn=;

var

  edge:array[..maxn]of arr;

  bit,numin,numout,first,deep:array[..maxn]of longint;

  chose:array[..maxn]of boolean;

  esum,tot,n,time:longint;

procedure addedge(j,k:longint);

begin

  inc(esum);

  edge[esum].toward:=k;

  edge[esum].next:=first[j];

  first[j]:=esum;

end;

procedure dfs(x:longint);

var

  i,too:longint;

begin

  inc(time);

  numin[x]:=time;

  chose[x]:=false;

  i:=first[x];

  while i> do begin

    too:=edge[i].toward;

    if chose[too] then begin

      deep[too]:=deep[x]+;

      dfs(too);

    end;

    i:=edge[i].next;

  end;

  inc(time);

  numout[x]:=time;

end;

function lowbit(x:longint):longint;

begin

  exit(x and (-x));

end;

procedure add(x,y:longint);

begin

  while x<=n<< do begin

    inc(bit[x],y);

    inc(x,lowbit(x));

  end;

end;

function ask(x:longint):longint;

var

  ans:longint;

begin

  ans:=;

  while x>= do begin

    inc(ans,bit[x]);

    dec(x,lowbit(x));

  end;

  exit(ans);

end;

procedure into;

var

  i,j,k:longint;

begin

  readln(n);

  for i:= to n- do begin

    readln(j,k);

    addedge(j,k);

    addedge(k,j);

  end;

  fillchar(chose,sizeof(chose),true);

  deep[]:=;

  dfs();

  //for i:= to n do writeln(i,' ',numin[i],' ',numout[i]);

  for i:= to n do begin

    add(numin[i],);

    add(numout[i],-);

  end;

end;

procedure work;

var

  i,j,m,k:longint;

  ch:char;

begin

  readln(m);

  while m> do begin

    read(ch);

    if ch='W' then begin

      dec(m);

      readln(j);

      writeln(ask(numin[j]));

    end

    else begin

      readln(j,k);

      if deep[j]<deep[k] then j:=k;

      add(numin[j],-);

      add(numout[j],);

    end;

  end;

end;

begin

  into;

  work;

end.