let n = Scanf.scanf " %d" @@ (+) 0
let ts = Array.init n @@ fun _ -> Scanf.scanf " %d" @@ (+) 0
let rec gcd a b = if b = 0 then a else gcd b (a mod b)
let rec lcm a b = a / gcd a b * b
let _ = Array.fold_left lcm 1 ts |> Printf.printf "%d\n"