      PROGRAM snack
      IMPLICIT NONE
      integer(16) :: a,b
      integer(16) :: big,sma,piyo,gcd,lcm
      
      read*,a,b
      
      big = max( a,b )
      sma = min( a,b )
      
      do while( .true. )
        if( mod(big,sma)==0 ) exit
        piyo = sma
        sma = mod( big,sma )
        big = piyo
      end do
      gcd = sma
      
      lcm = a*b/gcd
      
      print*,lcm
      
      END PROGRAM