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