program aa;

var temp,a,b,n,m,c,d:integer;

begin

readln(a,b);

if b>a then begin

n:=b;

m:=a;

c:=b;

d:=a;

end

else begin

n:=a;

m:=b;

c:=a;

d:=b;

end;

while true do begin

if n mod m=0 then break;

temp:=n;

n:=m;

m:=temp mod m;

end;

writeln((c div m) *d);

end.