var f,g:text;v:array[1..2000000,1..3]of longint;v1:array[0..2000000]of byte;v2:array[1..2000000]of byte;
a,b,x,y,r,c,i,j:longint;
begin
assign(f,'multiplu.in');reset(f);assign(g,'multiplu.out');rewrite(g);
read(f,a,b);
x:=a;
y:=b;
r:=a mod b;
while r>0 do begin
a:=b;
b:=r;
r:=a mod b;
             end;
c:=x*y div b;
v[1,1]:=1;
v[1,2]:=1 mod c;
v1[1 mod c]:=1;
i:=1;
a:=1;
b:=1;
while v[i,2]>0 do begin
for j:=a to b do begin
inc(i);
v[i,1]:=0;
v[i,2]:=(v[j,2]*10)mod c;
v1[v[i,2]]:=1;
v[i,3]:=j;
if v[i,2]=0 then break;
if v1[(v[j,2]*10+1)mod c]=0 then begin
 inc(i);
 v[i,1]:=1;
 v[i,2]:=(v[j,2]*10+1)mod c;
 v1[v[i,2]]:=1;
 v[i,3]:=j;
 if v[i,2]=0 then break;
                                 end;
                  end;
a:=b+1;
b:=i;
                   end;
j:=0;
while i>0 do begin
inc(j);
v2[j]:=v[i,1];
i:=v[i,3];
             end;
for i:=j downto 1 do
write(g,v2[i]);
close(f);close(g);
end.