Module Module1

    Private Function Lcm(a As Long, b As Long) As Long
        Return a * b \ Gcd(a, b)
    End Function

    Private Function Gcd(a As Long, b As Long) As Long
        If a < b Then
            Return Gcd(b, a)
        End If
        Do While b <> 0
            Dim remainder = a Mod b
            a = b
            b = remainder
        Loop
        Return a

    End Function

    Sub Main()

        Dim tmp As String() = Split(Console.ReadLine(), " ")
        Dim A As Long = CInt(tmp(0))
        Dim B As Long = CInt(tmp(1))

        Dim R As Long = Lcm(A, B)

        Console.WriteLine(R)
        ’Console.ReadLine()

    End Sub

End Module

