$_=<>;print$&while y/A-Z/ZA-Y/,s/.//