print+(0,<>)[sort{$a-$b}1..$<,glob<>]