$\+=$_*=?^?|$_>0for(sort{$b-$a}glob<>)[0..$'-<>=~$"];print