<>=~/ /;$k=$';$i++,""^$_?push@a,$i:($b[$b[$i]=pop@a]=$i)for<>=~/./g;print$b[$k]