import Data.Char (ord, chr) import Data.Bool (bool) solve _ [] = [] solve i (c:cs) = chr c' : solve (i + 1) cs where c' = (\n -> bool (n + 65) (n + 90) (n < 0)) $ flip mod 26 $ ord c - 65 - i main = getLine >>= putStrLn . solve 1