program main
  integer(8) :: n, i, a, b, nmax, mcd, adum, bdum
  read(*,*) a, b
  nmax = min(a,b)
  mcd = 1
  adum = a
  bdum = b
  do i = 2, nmax
    do while(mod(adum,i)==0.and.mod(bdum,i)==0)
      mcd = mcd * i
      adum = adum/i
      bdum = bdum/i
    end do
  end do
  write(*,*) a*b/mcd
end program main