   program abc148c
      implicit none
      integer(8)::a,b

         read *, a,b
         print *, lcm(a,b)
         stop

   contains

      function gcd(a,b)
         implicit none
         integer(8),intent(in)::a,b
         integer(8)::gcd
         integer(8)::l,m,n

            l=a
            m=b
            n=mod(l,m)
            do while (n/=0)
               l=m
               m=n
               n=mod(l,m)
            end do
            gcd=m
            return
      end function gcd

      function lcm(a,b)
         implicit none
         integer(8),intent(in)::a,b
         integer(8)::lcm

            lcm=a*b/gcd(a,b)          ! gcd(a,b)*(a/gcd(a,b))*(b/gcd(a,b))
            return
      end function lcm

   end program abc148c