var a,b,t:Qword; function gcd(m,n:Qword):Qword; begin if m mod n=0 then gcd:=n else gcd:= gcd(n,m mod n) ; end; begin readln(a,b);if a<b then begin t:=a;a:=b;b:=t;end;writeln( a*b div gcd(a,b) ); end.