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