open System

let [|a; b|] = stdin.ReadLine().Split(' ') |> Array.map int64
 
let g (x0: int64) (y0: int64) = 
    let rec loop x y =
        if y % x = 0L then
            x
        else 
            loop (y % x) x
 
    loop (min x0 y0) (max x0 y0)
 
printfn "%d" <| (a * b / (g a b))