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