<>;$/=$";$\+=$-=-($j+=$-=$_-$j)+($_=++$i)-$\for@p[<>];print