my($f,@r)=split//,$_;
my$l=join"",@r;
++$l;
$_=$f.$l;
print $_;