-- yukicoder My Practice
-- author: Leonardone @ NEETSDKASU

main = putStrLn . f "" =<< readLn where
    f r n
        | n < 0     = r
        | otherwise = f (a : r) (n `div` 26 - 1) where
            a = ['A'..'Z'] !! (mod n 26)