(let[l(take-while type(repeatedly read-line))r reverse s #(.indexOf%"*")a apply f #(if(=(s(first%))-1)(recur(rest%)(inc%2))%2)n(drop-last(f(r l)0)(drop(f l 0)l))b #(a min(remove neg?(map% n)))i(b s)j(b #(s(a str(r%))))](some #(println(if(=%"")""(a str(drop-last j(drop i%)))))n))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).