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