program W
implicit none
character(1024)::S
integer::i
read*,S
do i=1,len_trim(S)
    S(i:i)=char(modulo(ichar(S(i:i))-ichar("A")-i,ichar("Z")-ichar("A")+1)+ichar("A"))
end do
print"(A)",trim(S)
end program W