lcm' m n = 
  let modulo = m `mod` n
  in if modulo == 0
    then n
    else lcm' n modulo

main = do
  [a,b] <- (map read) . words <$> getLine
  let m = max a b 
  let n = min a b 
  print $ a * b `div` (lcm' m n)
