program main

  implicit none

  integer(8) :: i, j , ii, jj
  integer(8) :: ij, k, tmp, jjtmp

  read(*,*) i, j

  if( i > j ) then
    ii = i
    jj = j
  else
    ii = j
    jj = i
  end if

  do
    tmp = mod(ii,jj)
    if( tmp == 0 ) then
      jjtmp = jj
      exit
    end if
    jj = tmp
    ii = jj
  end do

  print*, i*j/jjtmp

end program main