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