program perle;

var f,g : text;
    a : array[1..10010] of byte;
    k,x,j : word;
    n,i,ok : byte;

procedure pc; forward;

procedure pb;
begin
    if a[k] = 2 then begin k := k+1; pb; end
    else if (a[k] = 1) and (a[k+2] = 3) then begin k := k+4; pc; end
    else pc;
end;

procedure pc;
begin
    if (a[k] = 1) and (a[k+1] = 2) and (k+2 <= x) then k := k+3
    else if a[k] = 3 then begin k := k+1; pb; pc; end
    else if k+2 >= x then ok := 0;
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,x);
        for j := 1 to x do read(f,a[j]);
        readln(f);

        ok := 1; k := 1;

        if x <> 1 then pb;

        writeln(g,ok);
        end;
    close(f);
    close(g);
end.