main=interact(\x->map(toEnum.(z$g$x!!0).fromEnum)x)
g x|x>'T'=14|x>'G'=8|1>0=20
z x c|c>96=mod(c+x-97)26+97|c>64&&c<95=mod(c+x-65)26+65|1>0=c