import Control.Monad
main = do
 n <- readLn
 ts<-replicateM n readLn
 print $ foldr mylcm 1 ts
 
 
mygcd a b 
    |a `mod` b /= 0 = mygcd b (a `mod` b)
    |otherwise = b
mylcm a b = (a*b) `div` (mygcd a b)