program Project2;
{$Q-,R-,I-,L-,D-}

{$APPTYPE CONSOLE}

var
      i,j,n,pos:integer;
        k,val:longword;
      mas:array[6..600006] of byte;   //Evils massiv
     last:array[1..1000] of integer;
        c:char;
        p:^longword;


begin
  { TODO -oUser -cConsole Main : Insert code here }

//  Assign(input,'Input.txt');
//  reset(input);

  Fillchar(last,sizeof(last),0);
  Fillchar(mas,sizeof(mas),0);

  i:=6;
  pos:=1;
  readln(n);
  for j:=1 to n do
  begin
    read(c); read(c);
    if c='U' then
    begin
      read(c); read(c);
      readln(k,val);
      if last[k]=0 then
      begin
        last[k]:=pos;
        p:=@mas[i+2];
        p^:=val shl 1;
      end else
      begin
        p:=@mas[i];
        p^:=last[k];
        last[k]:=pos;
        p:=@mas[i+2];
        p^:=p^ xor (val shl 1);
      end;
      inc(i,6);
      inc(pos);
    end else
    begin
      read(c);
      readln(k);
      val:=last[k]*6;
      p:=@mas[val];
      last[k]:=p^ and $1FFFF;
      p:=@mas[val+2];
      writeln(p^ shr 1);
    end;
  end;

end.