(def A (read))
(def B (read))

(defn gcd [m n] (cond 
                       (< m n) (gcd n m)
                       (= n 0) m
                       :else (gcd n (mod m n))))
                   
(println (quot (* A B) (gcd A B)))