import Data.Char (ord,chr)

main = do
    line <- getLine
    putStrLn $ (cipher (-3) line)

cipher :: Int -> String -> String
cipher n = map (cipherChar n)

cipherChar :: Int -> Char -> Char
cipherChar n ch = chr (((ord ch) - base + n) `mod` 26 + base)
    where
    base = ord 'A'