#!racket
(let m()(display(car(regexp-match #px" .|(.)(?=\\1 )"(read-line))))(m))