var st:array[1..2,1..10000] of integer;         
    niv,valid:array[1..2] of integer;         
    n,l,v,i:integer;         
        
procedure verif(i:integer);         
begin        
if valid[i]=1 then        
  if st[i,niv[i]-1]<4 then        
        begin        
        dec(niv[i]);         
        if st[i,niv[i]]=v then valid[i]:=1        
                          else valid[i]:=0;         
        end        
   else if st[i,niv[i]-1]=4 {A} then dec(niv[i])         
        else if st[i,niv[i]-1]=5 {B} then        
                  begin        
                  if v=3 then valid[i]:=0;         
                  if v=1 then        
                    begin        
                    dec(niv[i]);         
                    st[i,niv[i]]:=6; inc(niv[i]); {C}        
                    st[i,niv[i]]:=4; inc(niv[i]); {A}        
                    st[i,niv[i]]:=3; inc(niv[i]); {3}        
                    st[i,niv[i]]:=4; inc(niv[i]); {A}        
                    end;         
                  {2 e bun si nu duce la nici o modificare B->2B}        
                  end        
   else {st[i,niv[i]-1]=6 -> este C in stiva}        
      begin        
      if v=2 then dec(niv[i]);         
      if v=1 then        
        begin        
        dec(niv[i]);         
        st[i,niv[i]]:=4; inc(niv[i]); {A}        
        st[i,niv[i]]:=2; inc(niv[i]); {2}        
        end;         
      if v=3 then        
        begin        
        dec(niv[i]);         
        st[i,niv[i]]:=6; inc(niv[i]); {C}        
        st[i,niv[i]]:=5; inc(niv[i]); {B}        
        end;         
      end;         
        
if (niv[i]=0) and (l>0) then valid[i]:=0;         
end;         
        
begin        
assign(input,'perle.in'); reset(input);         
assign(output,'perle.out'); rewrite(output);         
readln(n);         
while n>0 do        
begin        
read(l);         
if l=1 then        
  begin        
  read(v);         
  writeln(1);         
  end        
else        
begin        
valid[2]:=1; valid[1]:=1;         
niv[2]:=2; niv[1]:=2;         
st[1,1]:=5;{B} st[2,1]:=6;{C}        
while l>0 do        
  begin        
  read(v);         
  for i:=1 to 2 do verif(i);         
  dec(l);         
  end; {while l>0}        
if (niv[1]=1) and (valid[1]=1) or (niv[2]=1) and (valid[2]=1) then writeln(1)         
                                                              else writeln(0);         
end; {else}        
dec(n);         
end; {while n>0}        
end.