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.