<>;$\+=$|--*$a*($a=$_)for sort{$a-$b}glob<>;print