map{$z[++$_[$_]]=0while($m)=grep$_>$m,@{$|--}}map{<>;@$_=sort{$a-$b}glob<>;$_}0,1;print$#z