<>;$\+=abs$_-$_[@_/2]for@_=sort{$a-$b}glob<>;print