<>;($\,@_)=sort{$b-$a}glob<>;$\+=$_>>1for@_;print