program alex;
var f,g:text;
    a,c:array[1..500]of longint;
    x:array[0..1005]of char;
    k,z,w,i,j,t,n:longint;
    er:integer;
    e:boolean;
begin
assign(f,'episoade.in');reset(f);
k:=0;
while not eoln(f) do
      begin
      k:=k+1;
      read(f,x[k]);
      if x[k-1]='>' then begin
                         val(x[k-2],z,er);
                         val(x[k],w,er);
                         a[z]:=w;
                         end;
      end;
readln(f,t,n);
assign(g,'episoade.out');rewrite(g);
for i:=1 to t do
    begin
    for j:=1 to n do
        read(f,c[j]);
    e:=true;
    for j:=1 to n-1 do
        if a[c[j]]<>0 then if a[c[j]]<>c[j+1]then begin
                               e:=false;
                               break;
                               end;
    if e=false then writeln(g,0)
               else writeln(g,1);
    readln(f);
    end;
close(f);
close(g);
end.