var s:array[1..1000] of char;  
v:array['A'..'Z'] of 0..1;  
n,i,j:word;  
ca:char;  
f,g:text;  
function o(var x:word):byte;  
         forward;  
function p(var x:word):byte;  
         var a,d:0..1;  
         begin  
         if s[x]=' ' then  
            x:=x+1;  
         a:=o(x);  
         if s[x]=' ' then  
            x:=x+1;  
         while (s[x]='O') and (s[x+1]='R') do  
               begin  
               x:=x+2;  
               if s[x]=' ' then  
                  x:=x+1;  
               d:=o(x);  
               if a+d>0 then  
                  a:=1  
               else  
                   a:=0;  
               end;  
         p:=a;  
         end;  
function an(var x:word):byte;  
         forward;  
function o(var x:word):byte;  
         var b,e:0..1;  
         begin  
         b:=an(x);  
         if s[x]=' ' then  
            x:=x+1;  
         while (s[x]='A') and (s[x+1]='N') do  
               begin  
               x:=x+3;  
               if s[x]=' ' then  
                  x:=x+1;  
               e:=an(x);  
               if b+e=2 then  
                  b:=1  
               else  
                   b:=0;  
               end;  
         o:=b;  
         end;  
function an(var x:word):byte;  
         var c:0..1;  
         begin  
         if (s[x]='N') and (s[x+1]='O') then  
            begin  
            x:=x+3;  
            if s[x]=' ' then  
               x:=x+1;  
            c:=1-an(x);  
            end  
         else  
             if s[x]='(' then  
                begin  
                x:=x+1;  
                if s[x]=' ' then  
                   x:=x+1;  
                c:=p(x);  
                if s[x]=' ' then  
                   x:=x+1;  
                x:=x+1;  
                if s[x]=' ' then  
                   x:=x+1;  
                end  
             else  
                 if (s[x]='T') and (s[x+1]='R') then  
                    begin  
                    x:=x+4;  
                    if s[x]=' ' then  
                       x:=x+1;  
                    c:=1;  
                    end  
                 else  
                     if (s[x]='F') and (s[x+1]='A') then  
                        begin  
                        x:=x+5;  
                        if s[x]=' ' then  
                           x:=x+1;  
                        c:=0;  
                        end  
                     else  
                         begin  
                         c:=v[s[x]];  
                         x:=x+1;  
                         if s[x]=' ' then  
                            x:=x+1;  
                         end;  
         an:=c;  
         end;  
begin  
assign(f,'bool.in');  
assign(g,'bool.out');  
reset(f);rewrite(g);  
while not eoln(f) do  
      begin  
      i:=i+1;  
      read(f,s[i]);  
      end;  
readln(f);  
readln(f,n);  
for i:=1 to n do  
    begin  
    read(f,ca);  
    v[ca]:=1-v[ca];  
    j:=1;  
    write(g,p(j));  
    end;  
close(f);close(g);  
end.