print shift @{[(split//,$num)[0-(@{[split//,$num]})]]}