@a=$n*2-$#F?($")x@F:@F,@a[$n++,@F/2,-$n]=($_)x3,print@a,$/for@F=<>=~/./g