var q,m,a,b,t,x:longint;
f,g:text;
function verif(x:longint):boolean;
begin
while ((x mod 10=1) or (x mod 10=0)) and (x<>0) do
  x:=x div 10;
if x=0 then
  verif:=true
else
  verif:=false;
end;
function cmmdc(a,b:longint):longint;
var r:longint;
begin
repeat
  r:=a mod b;
  a:=b;
  b:=r;
until r=0;
x:=a;
cmmdc:=x;
end;
begin
assign(f,'multiplu.in');reset(f);
assign(g,'multiplu.out');rewrite(g);
readln(f,a,b);
t:=a*b;
cmmdc(a,b);
m:=t div x;
x:=3;
q:=x*m;
while not verif(q) do begin
      inc(x);
      q:=x*m;
end;
writeln(g,x*m);
close(g);
end.