program main

  implicit none

  integer :: i, j, k,ij, tmp

  read(*,*) i, j

  ij = int( i*j )

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

  write(6, "(1p, I10 )") tmp

end program main