const ult:char=chr(ord('Z')+2);

var s:ansistring;
    a:array['A'..chr(ord('Z')+2)] of longint;
    q,x,n,i:longint;
    f,g:text;
    ch:char;

function sau:longint; forward;
function si:longint; forward;
function non:longint; forward;
function termen:longint; forward;

function sau:longint;
 var x,y:longint;
 begin
  x:=si;
  while (i<=q) and (s[i]='|') do begin
   inc(i);
   y:=si;
   x:=x or y;
  end;
  sau:=x;
 end;

function si:longint;
 var x,y:longint;
 begin
  x:=non;
  while (i<=q) and (s[i]='&') do begin
   inc(i);
   y:=non;
   x:=x and y;
  end;
  si:=x;
 end;

function non:longint;
 var x,y:longint;
 begin
  if s[i]='~' then begin
   inc(i);
   x:=termen;
   x:=x xor 1;
  end
  else
   x:=termen;
  non:=x;
 end;

function termen:longint;
 var x,y:longint;
 begin
  if s[i]='(' then begin
   inc(i);
   x:=sau;
   inc(i);
  end
  else begin
   x:=a[s[i]];
   inc(i);
  end;
  termen:=x;
 end;

begin
 assign(f,'bool.in'); reset(f);
 assign(g,'bool.out'); rewrite(g);
 n:=0; a[ult]:=0; a[chr(ord('Z')+1)]:=1;
 readln(f,s);
 x:=pos(' ',s);
 while x<>0 do begin
  delete(s,x,1);
  x:=pos(' ',s);
 end;
 x:=pos('TRUE',s);
 while x<>0 do begin
  delete(s,x,4);
  insert(chr(ord('Z')+1),s,x);
  x:=pos('TRUE',s);
 end;
 x:=pos('FALSE',s);
 while x<>0 do begin
  delete(s,x,5);
  insert(ult,s,x);
  x:=pos('FALSE',s);
 end;
 x:=pos('NOT',s);
 while x<>0 do begin
  delete(s,x,3);
  insert('~',s,x);
  x:=pos('NOT',s);
 end;
 x:=pos('AND',s);
 while x<>0 do begin
  delete(s,x,3);
  insert('&',s,x);
  x:=pos('AND',s);
 end;
 x:=pos('OR',s);
 while x<>0 do begin
  delete(s,x,2);
  insert('|',s,x);
  x:=pos('OR',s);
 end;
 x:=pos('~~',s);
 while x<>0 do begin
  delete(s,x,2);
  x:=pos('~~',s);
 end;
 readln(f,n);
 q:=length(s);
 for x:=1 to n do begin
  read(f,ch);
  a[ch]:=a[ch] xor 1;
  i:=1;
  write(g,sau);
 end;
 writeln(g);
 close(f); close(g);
end.