program ex;
var
a:array[0..50000] of longint;
k,pd,i,m,n,cuo:longint;
s:string;
begin
  assign(input,'criminald.in');
  assign(output,'criminald.out');
  reset(input);
  rewrite(output);
  readln(n,m);
  for i:=1 to n do a[i]:=0;
  for i:=1 to m do begin read(k);a[k]:=1;end;
  s:='1';
  while (s[1]<>'E') do
  begin
    readln(s);
    if (s[1]='A') then
    begin
      val(s[3],pd);
      if (a[pd]=0) then writeln('Unknown');
      if (a[pd]=1) then writeln('Yes');
      if (a[pd]=-1) then writeln('No');
    end;
    if (s[1]='S') then
    begin
      val(s[3],pd);
      if (a[pd]=1) then
      begin
        if (pos(s,'-')=0) then val(s[5],k) else
        begin
          val(s[6],k);
          k:=k-k*2;
        end;
        if (k>0) then a[k]:=-1 else a[k]:=1;
      end;
      if (a[pd]=-1) then
      begin
        cuo:=pos('-',s);
        if (cuo=0) then
        val(s[5],k)
        else
        begin
          val(s[6],k);
          k:=k-k*2;
        end;
        if (k>0) then a[abs(k)]:=1 else a[abs(k)]:=-1;
      end;
    end;
  end;
  close(input);
  close(output);
end.