program main

  implicit none
  integer(8) :: a, b !911
  integer(8) :: nl, ns, tmp
 
  read(*,*) a, b
  
  if ( a >= b ) then
    nl = a
    ns = b
  else
    nl = b
    ns = a
  end if
  
  do
    tmp = mod( nl, ns )
    nl = ns
    ns = tmp
    if ( ns == 0 ) exit
  end do
  
  print*, a*b/nl 
   

end program main
