import Data.List

main = do
  getLine >>= putStrLn . compute . read

compute :: Int -> String
compute n = reverse $ unfoldr f n

f 0 = Nothing
f n = let (p,q) = divMod (pred n) 26 in Just (toEnum $fromEnum 'a' + q, p)