var x,y,nod,nok:longint;
begin
read(x,y);
a:=x; b:=y;
while (a>0) and (b>0) do
if a>b then a:=a mod b
else b:=b mod a;
nod:=a+b;
nok:=(x div nod)*y;
write(nok);
end;
var x,y,nod,nok:longint;
begin
read(x,y);
a:=x; b:=y;
while (a>0) and (b>0) do
if a>b then a:=a mod b
else b:=b mod a;
nod:=a+b;
nok:=(x div nod)*y;
write(nok);
end;