<>;$\+=abs$_-++$-for sort{$a-$b}glob<>;print