open System
let R T = stdin.ReadLine()|> T
let RS T = stdin.ReadLine().Split()|>Array.map T
let Mod = (1e9|>int64)+7L
[<EntryPoint>]
let main argv =
    let rec gcd a b = if a%b=0L then b else (gcd b (a%b))
    let A,B = RS int64|>fun c -> c.[0],c.[1]
    A*B/(gcd A B)
    |>stdout.WriteLine
    0
