do{$_||=qq=1\n2-1\n=,$"="",print}
while s=\n\d+=qq@\@{[-$&,-$&-1,"\n",$&+2,-$&-1,-$&]}@=e&&$&<8;