program z;
 var a:array[1..100] of integer;
 ch,osn:integer;
 i,j,k:integer; r,s,p:longint;
         t1,t2:text;
procedure per(delim,del:integer);
var ost,chast:integer;
begin
ost:=delim mod del;
i:=i+1;
a[i]:=ost;
chast:=delim div del;
if chast<>0 then begin
               delim:=chast;
               per(delim,del);
               end;

end;
begin
assign(t1,'input.txt');
reset(t1);
assign(t2,'output.txt');
rewrite(t2);
readln(t1,ch,osn);
i:=0;
per(ch,osn);
s:=0; p:=1;
for j:=1 to i do
begin
     write(t2,a[j]:4);
    s:=s+a[j];
    p:=p*a[j];
end;
r:=p-s;
writeln(t2,'r=',r:10);
close(t1);
close(t2);
end.