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