Type sir=array[1..2000000] of longint;
var r:sir;
    f,g:text;
    a,b,c,i,j,k:longint;
    ok:boolean;
Procedure cmmmc(a,b:longint; var c:longint);
var p:longint;
begin
p:=a*b;
While (a<>0) and (b<>0) do
      If a<b then b:=b mod a
             else a:=a mod b;
c:=p div (a+b);
end;

begin
assign(f,'multiplu.in');reset(f);
assign(g,'multiplu.out');rewrite(g);
read(f,a,b);
cmmmc(a,b,c);
r[1]:=1;
i:=1;
ok:=false;
While (i<c) and (r[i]<>0) and not ok do
      begin
      inc(i);
      r[i]:=(r[i-1]*10+1) mod c;
      j:=1;
      While (j<i) and not ok do
      begin
          If r[j]=r[i] then begin
          ok:=true;
          For i:=1 to i-j do write(g,'1');
          For i:=1 to j do write(g,'0');
                            end;
      inc(j);
      end;
      end;
If r[i]=0 then
   For j:=1 to i do write(g,'1');
close(f);close(g);
end.