let n = stdin.ReadLine() |> int

let t =
  [ for _ in 1 .. n -> stdin.ReadLine() |> int64 ]

let lcm m n =
  let rec gcd (m: int64) (n: int64) =
    if m < n then
      gcd n m
    else
      let mutable a = m, n

      while (snd a) <> 0L do
        let m = fst a
        let n = snd a
        a <- n, (m % n)

      fst a

  (m / (gcd m n)) * n

let ans =
  t
  |> List.fold lcm 1L

ans |> stdout.WriteLine