var v:array[0..2000002] of longint;
r,nr,x,n,p:int64;
i,a,b:longint;
ok:boolean;
f,g:text;
begin
assign(f,'multiplu.in');reset(f);
assign(g,'multiplu.out');rewrite(g);
read(f,a,b);
v[1]:=1;
x:=1;
nr:=1;
ok:=True;
p:=a*b;
while b<>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
n:=p div a;
while ok do begin
inc(nr);
r:=(x*10+1) mod n;
  if (r<>0) then if (v[r]=0) then begin
                             v[r]:=nr;
                             x:=r;
                                  end
                             else begin
                             for i:=1 to nr-v[r] do write(g,'1');
                             for i:=1 to v[r] do write(g,'0');
                             ok:=False;
                                  end
                             else begin
                             ok:=False;
                             for i:=1 to nr do write(g,'1');
                             end;
             end;
close(f);
close(g);
end.