var  f,g:text;
     n,l,x,i:longint;
     ok:boolean;
function b2:boolean;forward;
function c2:boolean;
begin
c2:=false;
while (x=3) and (not eoln(f)) do read(f,x);
if b2=true then c2:=true;
end;

function c3:boolean;forward;

function b2:boolean;
begin
b2:=false;
while (x=2) and (not eoln(f)) do read(f,x);
if x=1 then begin
   read(f,x);read(f,x);
   if x=3 then begin
      read(f,x);read(f,x);
      if (x=2) or (c3=true) or (c2=true) then b2:=true;
   end;
end;
end;

function c3:boolean;
begin
c3:=false;
if x=1 then begin
   read(f,x);
   if x=2 then c3:=true;
   read(f,x);
end;
end;
begin
assign(f,'perle.in');reset(f);
assign(g,'perle.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
    read(f,l);
    if l=1 then ok:=true
       else
       if l=2 then begin ok:=false;read(f,x);read(f,x);end
          else
          if l=3 then begin
               ok:=true;
               read(f,x);
               if x<>1 then begin ok:=false;
                  read(f,x);
                  read(f,x);
               end
                  else begin
                       read(f,x);
                       if x<>2 then ok:=false;
                       read(f,x);
                  end;
          end
    else begin
         read(f,x);
         if x=2 then ok:=b2
            else if x=3 then ok:=c2;
    end;
    if ok=true then writeln(g,'1') else writeln(g,'0');
end;
close(g);
end.