var s:string;
    a,b,x:byte;
    ch1,ch2:char;
    t,h,i:longint;
begin
  assign(input,'???');
  reset(input);
  readln(s);
  read(ch1,ch2);
  a:=ord(ch1)-48;
  if ch2='-' then read(ch2)
             else begin a:=a*10+ord(ch2)-48; read(ch1,ch2); end;
  read(ch1);
  b:=ord(ch1)-48;
  while not(eoln) do
    begin
      read(ch2);
      b:=b*10+ord(ch2)-48;
    end;
  close(input);
  assign(output,'???');
  rewrite(output);
  if a=b then writeln(s) else
    begin
      t:=1; h:=0;
      for i:=length(s) downto 1 do
        begin
          x:=ord(s[i]);
          if x<65 then x:=x-48
                  else x:=x-55;
          h:=h+t*x;
          t:=t*a;
        end;
      s:='';
      repeat
        x:=h mod b;
        h:=h div b;
        if x>10 then s:=chr(x+55)+s
                else s:=chr(x+48)+s;
      until h=0;
      writeln(s);
    end;
  close(output);
end.

begin
  assign(input,'??');reset(input);
  assign(output,'??');rewrite(output);
  readln(st1);readln(st2);
  m:=0;n:=0;k:=pos('-',st2);
  for i:=1 to k-1 do m:=m*10+ord(st2[i])-48;
  delete(st2,1,k+1);l:=length(st2);
  for i:=1 to l do n:=n*10+ord(st2[i])-48;
  l:=length(st1);k:=1;shi:=0;
  for i:=1 to l do
   begin
     k:=ord(st1[i])-48;
     if k>9 then k:=k-7;
     shi:=shi*m+k
   end;
  st1:='';
  while shi>0 do
   begin
     k:=shi mod n;shi:=shi div n;
     if k>9 then k:=k+7;
     st1:=chr(k+48)+st1
   end;
  writeln(st1);
  close(input);close(output)
end.