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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page