program df;
var
f1,f2:text;
x,y,n,i,j,h,k:integer;
a:array[0..5,0..5]of 0..2;
begin
assign(f1,'klgame.in');
assign(f2,'klgame.out');
reset(f1);
rewrite(f2);
readln(f1,n);
for h:= 1 to n do begin

for i:= 1 to 5 do
 for j:= 1 to 5  do begin
        read(f1,a[i,j]);
  if a[i,j]=2 then begin x:=i;y:=j;end;
                   end;

 if (x=3)or(y=3)then k:=1 else k:=2;
 if (a[3,2]=1)or(a[3,4]=1)or(a[2,3]=1)or (a[4,3]=1)then writeln(f2,k)
                                                  else begin inc(k);writeln(f2,k);end;

if h<>n then readln(f1);
 end;
close(f1);
close(f2);
end.