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