<>;map{$\+=abs$i-$j++for 1..$_;$i++}glob<>;print