import Data.List

main = do
    l <- getContents
    let _:ns = ((map read $ lines l) :: [Integer])
    
    print $ foldl1' lcm' ns

lcm' a b = head [ x | let c = max a b, x <- [c,c+1..], mod x a == 0 && mod x b ==0]
