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