import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as BS
import Data.List

readInt = fst . fromJust . BS.readInt
readIntList = map readInt . BS.words
getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine

main = do
    n <- getInt
    putStrLn $ map f (solve n)

solve 0 = []
solve n | m == 0 = solve (d-1) ++ [m] 
        | otherwise = (solve d) ++ [m]
    where (d,m) = n `divMod` 26

f k = head . drop k $ 'z' : ['a'..'y']