import qualified Data.ByteString.Char8 as BC
import Data.Maybe

readIntLines :: IO [Int]
readIntLines = map (fst . fromJust . BC.readInt) . BC.lines <$> BC.getContents

main :: IO ()
main = do
  getLine
  ts <- readIntLines
  print $ foldr lcm 1 ts
