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