perl -e '$_=101795849658212;$_=0*(print(chr(65+$_%30)))+($_-$_%30)/30while$_;print"\n";'