$/=o;print+((A..Z,$")x9)[$n+=y/p//]for<>