import Control.Monad
import Control.Applicative
import Data.List
import Prelude

main :: IO ()
main = do
    n <- readLn :: IO Int
    lr <- replicateM n getLine
    putStrLn $ show $ solve lr

solve :: [String] -> Int
solve [] = 1
solve (x:xs) = lcm a (solve xs)
    where a = read x :: Int