pos=$i%8,s/\G(.)(.{@{[$i++%9]}})(.)/$3$2$1/,$\+=$-=$_-$\for@a=(<>)x99;print