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 = int( mod(ii,jj) )
    if( tmp == 0 ) then
      jjtmp = jj
      exit
    end if
    ii = jj
    jj = tmp
  end do

  tmp  = i*j/jjtmp
  !tmp  = int( i*j/jjtmp )
  write( 6, "(1p,I20)") tmp
  !print*, tmp

end program main