var a,b,m,i,x,j,k:integer;
    f,g:text;
    v:array[1..2000002] of byte;
begin
assign(f,'multiplu.in');reset(f);
assign(g,'multiplu.out');rewrite(g);
readln(f,a,b);
i:=1;m:=1;
while m mod(a*b)<>0 do begin
        x:=i;j:=0;
        while x>0 do begin
                inc(j);
                v[j]:=x mod 2;
                x:=x div 2;
        end;
        m:=0;
        for k:=j downto 1 do
                m:=m*10+v[k];
        inc(i);
end;
writeln(g,m);
close(g);
end.