program ABC148C
    integer(16)::A,B
    read*,A,B
    print"(i0)",A*B/gcd(a,b)
    contains
integer(16) recursive function gcd(a, b)result(res)
  integer(16), intent(in)::a, b
  res=merge(b, gcd(b, mod(a, b)),mod(a, b)==0)
end function
end program