program expresii;
var f,g:text;
    i,n,j,x,y,c,d,er,t:integer;
    a:array[0..1000] of char;
    u,v:string;
    b:array[1..100] of integer;
    e:boolean;
begin
   assign(f,'episoade.in');
   assign(g,'episoade.out');
   rewrite(g);
   reset(f);
   i:=0;
   while not eoln(f) do
   begin
   i:=i+1;
   read(f,a[i]);
   if a[i-1]='>' then begin
                      val(a[i-2],x,er);
                      val(a[i],y,er);
                      b[x]:=y
                     end;
   end;

   readln(f,t,n);
   for i:=1 to t do
   begin
   e:=true;
   read(f,c);
   for j:=2 to n do begin
                     read(f,d);
                     if b[c]<>0 then if b[c]<>d then e:=false;
                     c:=d;
                    end;
   if e then writeln(g,1)
        else writeln(g,0);
   end;
   close(f);
   close(g);
end.