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