import Data.Char
import Control.Applicative

func::Int->String
func (-1) =[]
func 0 = ['A']
func n =func((n `div` 26)-1)++[chr(n `mod` 26+ord 'A')]

main = putStrLn=<<func<$>read<$>getLine