$n=<>;$n=$n/26- s//(A..Z)[$n%26]/ewhile$n>=0;print