var a,b,c,d: integer;
begin
readln(a, b);
c:=a*b;
while (a mod b<>0) do begin
d:=b;
b:=a mod b;
a:=d;
end;
d:=b;
c:=c div d;
writeln(c);
end.
输入1
3 2

输入2
63 49
输出：6|441