integer p,n,b
integer,dimension(99)::a
1 read*,n,b
p=1
do
   if(n<b) then
      exit
   endif
   a(p)=mod(n,b)
   p=p+1
   n=n/b
enddo
if(n>0) then
   a(p)=n
   p=p+1
endif
p=p-1
do
   if(p<1) then 
      exit
   endif
   write(*,"(i0)",advance='no')a(p)
   p=p-1
enddo
print"(a)",""
goto 1
end