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