Program Hashuri;
Const
 p = 2097593;
Var
 h: array[1..p] of Boolean;
 f, g: Text;
 i, n, v: Longint;   o: Byte;

Function Ff(a: LongInt): LongInt;
Begin
 Ff:=a mod p;
End;

BEGIN
 {for i:=1 to p do h[i]:=false;}
 Assign(f,'hashuri.in'); Reset(f);
 Assign(g,'hashuri.out'); ReWrite(g);
 ReadLn(f,n);
 For i:=1 to n do
  Begin
   ReadLn(f,o,v);
   Case o of
    1: h[ff(v)]:=true;
    2: h[ff(v)]:=false;
    3: If h[ff(v)] then WriteLn(g,'1') Else WriteLn(g,'0');
   End;
  End;
 Close(f);  Close(g);
END.