program balaur;
var f,g:text;
		v:array[1..1000]of byte;
		l,n,i,b,k:integer;

procedure calcul;
begin
i:=2;
 while(i<=n)do
	begin
		if(v[i+1]=1)and(v[i+3]=3)then begin
																	i:=i+5;
																	if (v[i+1]=1) and (v[i+2]=2) then b:=1
																							 else if v[i+1]=3  then b:=1
																																 else b:=0;
																	end;
	 i:=i+1;
	 end;
end;

procedure perla;
begin
 if(l=2)then b:=0
	else
	 if(l=1) then b:=1
					 else calcul;
end;

procedure afisare;
begin
 writeln(g,b);
end;

procedure citire;
begin
 assign(f,'perle.in');reset(f);
 readln(f,n);
 for k:=1 to n do
	begin
	 for i:=1 to l do v[i]:=0;
	 read(f,l);
		for i:=1 to l do read(f,v[i]);
		readln(f);
	 perla;
	 afisare;
	end;
 close(f);
end;

begin
assign(g,'perle.out');rewrite(g);
citire;
close(g);
end.