import Control.Monad
import Data.List

getLineRepeat :: Int -> IO [String]
getLineRepeat times = replicateM times getLine

main = do
    n <- read <$> getLine :: IO Int
    d <- getLineRepeat n
    let ts = map read d :: [Integer]
    let ans = foldl lcm 1 ts
    putStrLn . show $ ans
