#!racket (let m()(display(regexp-replace #px".+(.)(\\1| ).+"(read-line)"\\1"))(m))