(#(let[s(read-line)p(.indexOf s(int%))%(if(< p 0)%(nth s(- 1 p)))](println%)(recur%))\1)