import Control.Applicative
import Control.Monad

lcmmult :: [Int] -> Int
lcmmult [x] = x
lcmmult (x:xs) = lcm x $ lcmmult xs

main :: IO ()
main = do
    n <- readLn :: IO Int
    xs <- replicateM n readLn :: IO [Int]
    putStrLn $ show $ lcmmult xs

