++$a[++$_[y/^//]][y/^//]for<>;print$#{pop@a}