program multiplu;
type adresa=^nod;
		 nod=record
     		 cif:boolean;
         dupa,inainte:adresa;
         rest:longint;
         end;
var cap,gasit,p,c,d:adresa;
    x,a,b:longint;
    m:string;
    ok:boolean;
    f:text;

begin
assign(f,'multiplu.in'); reset(f);
readln(f,a,b);
close(f);
x:=a*b;
while a<>b do
	if a>b then
  	a:=a-b
  else
  	b:=b-a;
x:=x div a;
new(cap);
cap^.cif:=true; cap^.dupa:=nil; cap^.inainte:=nil; cap^.rest:=1;
p:=cap; new(d); d:=cap;
ok:=false;
while not ok do begin
  new(c);
  c^.cif:=false;
  d^.dupa:=c;
  c^.dupa:=nil; c^.inainte:=p;
  c^.rest:=(p^.rest*10) mod x;
  if c^.rest=0 then begin
  									ok:=true;
                    gasit:=c;
                    end
  else begin
  		 new(d);
       d^.cif:=true;
       c^.dupa:=d;
       d^.dupa:=nil; d^.inainte:=p;
  		 d^.rest:=(c^.rest+1) mod x;
       if d^.rest=0 then begin
       									 ok:=true;
                         gasit:=d;
                         end
       else p:=p^.dupa
       end
end;
p:=gasit;
m:='';
while p^.inainte<>nil do begin
	if p^.cif then
    m:='1'+m
  else
  	m:='0'+m;
  p:=p^.inainte
end;
m:='1'+m;
assign(f,'multiplu.out'); rewrite(f);
writeln(f,m);
close(f);
end.