program nok;
var a,b,i,nd:integer;
begin
readln(a,b);

for i:=a*b downto 1 do begin
  if (i mod a = 0) and (i mod b = 0) then nk:=i;
end;
write(nk);
end.

program nod;
var a,b,i,nk:integer;
begin
readln(a,b);

for i:=1 to a*b do begin
  if (a mod i = 0) and (b mod i = 0) then nd:=i;
end;
write(nd);
end.