print"@{$_=++$_%@F+$p--%@F*@F+1for@F,$p;F} "for@F=0..~-pop