let () =
    let rec gcd a b = if b = 0 then a else gcd b (a mod b) in
    let lcm a b = a / gcd a b * b in
    let main () =
        let a, b = Scanf.scanf "%d %d" (fun a b -> a, b) in
        Printf.printf "%d\n" (lcm a b)
    in
    main ()