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