$\+=$_ for(sort{$a-$b}map$_-=$a[++$i]//$_,@a=sort{$b<=>$a}glob<>)[<>!~$"..$`-$'];print