$_=<>;print$a="$&$a$&",$/while s/.$//