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