import Control.Monad
import Control.Applicative
import Data.List
import Data.Array
strToInt s = (read :: String -> Int) s

main = do
    n <- readLn :: IO Int
    t <- replicateM n getLine
    let t0 = map read t
    print $ solve t0

solve :: [Int] -> Int
solve t = foldr lcm 1 t