var  a:array[1..100] of integer;
     n,nr,x,r,i,c,d:integer;
     ok:boolean;
     f,g:text;
begin
assign(f,'multiplu.in');reset(f);
assign(g,'multiplu.out');rewrite(g);
readln(f,c,d);
while c<>d do
      if c>d then c:=c-d else d:=d-c;
n:=d;
a[1]:=1;x:=1;nr:=1;ok:=true;
while ok do begin
        inc(nr);r:=(x*10+1) mod n;
        if r<>0 then begin
           if a[r]=0 then begin
              a[r]:=nr;
              x:=r;
           end else begin
                for i:=1 to nr-a[r] do write(g,1);
                for i:=1 to a[r] do write(g,0);
                ok:=false;
           end;
        end
        else begin
             ok:=false;
             for i:=1 to nr do write(g,1);
        end;
end;
writeln(g);
close(g);
end.