[<AutoOpen>]
module Program

open System

let read f = stdin.ReadLine() |> f
let reads f = stdin.ReadLine().Split() |> Array.map f

let inline gcd x y =
    let zero = LanguagePrimitives.GenericZero
    let rec loop x y = if y = zero then x else loop y (x % y)
    loop (abs x) (abs y)

let inline lcm x y =
    let zero = LanguagePrimitives.GenericZero
    if x = zero || y = zero then zero else abs ((x / gcd x y)) * y

[<EntryPoint>]
let main _ =
    let [|A;B|] = reads int64
    printfn "%i" (lcm A B)
    0