
solve 0 = []
solve x = toEnum ((fromEnum 'a') + xmod) : solve xdiv
        where
            xdiv = div (x-1) 26
            xmod = mod (x-1) 26

main  = do
    x <- readLn :: IO Int
    putStrLn $ reverse $ solve x
