let [|a; b|] = stdin.ReadLine().Split(' ') |> Array.map int

let g x0 y0 = 
    let rec loop x y =
        if y % x = 0 then
            x
        else 
            loop (y % x) x

    loop (min x0 y0) (max x0 y0)

printfn "%d" <| (a * b / (g a b))