read a
for((;i++<7;))
{
seq {1,1,9}$z
z+=0
}|sed /$a/q\;1i0|tac