gets.to_i.times{eval"L,*A="+$<.take(4).join.split*?,
x,y,*g=(0..8).select{|i|A[i]<1}
q=->a{A[x]=a
A[y]=L-a
i=0
0<a&&a<L&&[[1,4,7],[4],3..5,[4]].all?{|k|i+=1
k.all?{|k|k=A.values_at k-i,k,k+i
k.sort[1]!=k[1]&&k|[]==k}}}
[*A,L/2].map{|a|-1.upto(1){|i|g<<a+i<<L-a+i}}
v=a=0
g.sort.uniq.map{|b|v+=q[a]&&q[b]?b-a:q[b]?1:0
a=b}
p v}