Imports System

Module Program
    Sub Main(args As String())

        Dim Str As String = Console.ReadLine()

        Dim A As Long = Long.Parse(Str.Substring(0, Str.IndexOf(" ")))
        Dim B As Long = Long.Parse(Str.Substring(Str.IndexOf(" ") + 1, Str.Length - Str.IndexOf(" ") - 1))

        Console.WriteLine(flcm(A, B))

    End Sub


    '最大公約数
    Function fgcm(A As Long, B As Long)
        Dim r As Long, tmp As Long, z As Long
        If A < B Then
            tmp = A : A = B : B = tmp
        End If
        r = A Mod B
        If r = 0 Then z = B Else z = fgcm(B, r)
        fgcm = z
    End Function


    '最小公倍数
    Function flcm(x As Long, y As Long) As Long
        Dim G As Long
        G = fgcm(x, y)
        flcm = x * y \ G
    End Function

End Module
