var i,s,p,k,k1,k2,l,sum,sum2:integer; b:array[1..1000] of integer;
begin
    read(k,p);  //p - система счисления,  k - число в p СС
    i:=1; k1:=k; s:=0; 
    while k1<>0 do begin   //тут находим кол-во цифр в nmb1 и nmb2
        k1:=k1 div 10;
        inc(s);
    end;
    writeln(s); k1:=k;
    //тут заносим в массив b[i] цифры nmb1 и nmb2
    for i:=s downto 1 do begin 
        k2:=k1 mod 10;
        b[i]:=k2;
        k1:=k1 div 10; end;
 
    sum:=1; s:=s; i:=s; sum2:=b[s]; k1:=k; l:=1;
    while s>1 do begin
    //возводим показатель СС (sum) в степень
        while i>1 do begin 
            sum:=sum*p;
            i:=i-1;
        end;
 
        //уже сам перевод nmb в 10 СС
        sum2:=sum*b[l]+sum2;  
        sum:=1; inc(l); s:=s-1; i:=s;
        end;
    write(sum2);
end.