var f,g:text;
    a,i,m,b:longint;
function cmmdc(a,b:integer):integer;
begin
     a:=abs(a);b:=abs(b);
     while a<>b do if a>b then a:=a-b
                          else b:=b-a;
     cmmdc:=a;
end;
function bz2(x:integer):longint;
begin
     if x>1 then bz2:=bz2(x div 2)*10+x mod 2
            else bz2:=1;
end;
begin
     assign(f,'multiplu.in'); reset(f);
     assign(g,'multiplu.out'); rewrite(g);
     readln(f,a,b);
     m:=a*b div cmmdc(a,b);
     i:=1;
     while bz2(i) mod m <> 0 do inc(i);
     if (a<0) and (b<0) then writeln(g,-bz2(i)) else writeln(g,bz2(i));
     close(g);
end.