var v:array[1..10000] of byte;
    n,i,j,l:longint;
    f,g:text;
function c(poz:word):word;
  forward;

function b(poz:word):word;
begin
  if l-poz+1<5 then
    b:=0
  else
    if v[poz]=2 then
      b:=b(poz+1)
    else
      if (v[poz]=1) and (v[poz+2]=3) then
        b:=c(poz+4);
end;

function c(poz:word):word;
var loc:word;
begin
  if v[poz]=2 then
    c:=poz+1
  else
    if (v[poz]=3) and (l-poz>=6) then
      begin
        loc:=b(poz+1);
        if loc=0 then
          c:=0
        else
          c:=c(loc);
      end
    else
      if (l-poz>=2) and (v[poz]=1) and (v[poz+1]=2) then
        c:=poz+3
      else
        c:=0;
end;

begin
  assign(f,'perle.in');
  assign(g,'perle.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  for i:=1 to n do
    begin
      read(f,l);
      for j:=1 to l do
        read(f,v[j]);
      if (l=1) or (b(1)=l+1) or (c(1)=l+1) then
        writeln(g,1)
      else
        writeln(g,0);
    end;
  close(f);
  close(g);
end.