{$N+}
var f,g:text;
a,b,m1,ai,bi,m2:comp;

function gasit(m:comp):boolean;
var mm:comp; ok:boolean;
begin
mm:=m;
ok:=true;
while (mm<>0)and ok do begin
if (trunc(mm) mod 10<>0)and(trunc(mm)mod 10<>1) then ok:=false;
mm:=mm/10;
end;
gasit:=ok;
end;

begin
assign(f,'multiplu.in');reset(f);
read(f,a,b);
close(f);
ai:=a; bi:=b;
while ai<>bi do begin
 if ai>bi then ai:=ai-bi
 else bi:=bi-ai;
 end;
m1:=ai;
m2:=a*b/m1;
m1:=m2;
repeat
m2:=m2+m1;
until gasit(m2);
assign(g,'multiplu.out');rewrite(g);
writeln(g,m2:1:0);
close(g);
end.