$n=<>;/ /,push@{-$_},-$' for<>;print$|x($f|=$$_=$|=grep!$$_,@$_)for-$n..0