implicit none
character(1024) S
integer(8) A,i
read(*,*) S
do i=1,len_trim(S)
     A=ichar(S(i:i))-i
       do while(A<65)
          A=A+26
       end do
     S(i:i)=char(A)
end do
write(*,*) S
end