program multiplu;
var f,g:text;
    i:word;
    a,b,cm:longint;
    ok:boolean;

procedure verificare(k:longint);
var c:longint;
begin
ok:=true;
while k>0 do
begin
c:=k mod 10;
if (c=0) or (c=1) then k:=k div 10
else
begin
k:=0;
ok:=false;
end; end;
if ok then write(k);
end;

procedure cmmmc(p,t:longint);
begin
repeat
if p>t then p:=p-t;
if p<t then t:=t-p;
until p=t;
cm:=(a*b) div p;
end;

begin
assign(f,'multiplu.in'); reset(f);
assign(g,'multiplu.out'); rewrite(g);
read(f,a,b);
cmmmc(a,b);
i:=0;
repeat
i:=i+1;
verificare(i*cm);
until ok;
write(g,i*cm);
close(f); close(g);
end.