import Data.Char move_left :: Char -> Int -> Char move_left c n = if n == 26 then c else if (ord c - n) < 65 then chr (25 - n + ord c) else chr (ord c - n) solve :: String -> String solve xs = map (\(c, n) -> move_left c n) $ zip xs (cycle [1..26]) main = do xs <- getLine putStrLn $ solve xs