import Data.Char
main = getLine >>= \n -> putStrLn $ solve $ read n
solve n
  | n == -1 = []
  | otherwise = (solve ((div n 26)-1)) ++ [chr (65 + (mod n 26))]