$_=<>;print$*=$&.$*.chop,$/while/.$/