program main

  implicit none

  integer(8) :: i, j
  integer(8) :: ij, k, tmp

  read(*,*) i, j

  ij = i*j
  do k = 1, ij
    if( ij < i .and. ij < j ) cycle
    if( mod(k, i) == 0 .and. mod(k, j) == 0 ) then
      tmp = k
      exit
    end if
  end do

  print*, tmp

end program main