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