program noi_002; va

program noi_002;

var i, j, l, n, k, s, t : integer;

b : array[1..10] of 0..9;

Begin

readln(l,n); s:=l; k:=1; t:=l;

while s

begin k:=k 1; t:=t*l; s:=s t end;

s:=s-t; n:=n-s-1;

for i:=1 to 10 do b[i]:=0;

j:=11;

while n>0 do

begin j:=j-1; b[j]:=n mod l; n:=n div l end;

for i:=10-k 1 to 10 do write(chr(ord('A') b[i]));

End.

输入：　4 167

输出：