#[macro_use]
pub mod basic_stdin {
use std::str::FromStr;

pub fn read<T: FromStr>() -> T {
    use std::io::stdin;
    use std::io::Read;

    let stdin = stdin();
    let stdin = stdin.lock();
    let token: String = stdin
        .bytes()
        .map(|c| c.expect("failed reading char") as char)
        .skip_while(|c| c.is_whitespace())
        .take_while(|c| !c.is_whitespace())
        .collect();
    token.parse().ok().expect("failed parsing")
}

}

#[macro_export]
macro_rules! test_function {
    (func = $func:expr, $($input:expr => $output:expr),* $(,)*) => {
        $(
            assert_eq!($func(std::io::Cursor::new($input)) , $output);
        )*
    };
}

#[macro_export]
macro_rules! input_macro {
    (string = $s:expr, $($r:tt)*) => {
        let mut iter = $s.split_whitespace();
        let mut next = || { iter.next().unwrap() };
        input_inner!{next, $($r)*}
    };
    (reader = $s:expr, $($r:tt)*) => {
        let reader = std::io::BufReader::new($s);
        let mut bytes = std::io::Read::bytes(reader);
        let mut next = move || -> String{
            bytes
                .by_ref()
                .map(|r|r.unwrap() as char)
                .skip_while(|c|c.is_whitespace())
                .take_while(|c|!c.is_whitespace())
                .collect()
        };
        input_inner!{next, $($r)*}
    };
}

#[macro_export]
macro_rules! input_inner {
    ($next:expr) => {};
    ($next:expr, ) => {};

    ($next:expr, $var:ident : $t:tt $($r:tt)*) => {
        let $var = read_value!($next, $t);
        input_inner!{$next $($r)*}
    };
    ($iter:expr, mut $var:ident : $t:tt $($r:tt)*) => {
        let mut $var = read_value!($iter, $t);
        input_inner!{$iter $($r)*}
    };
}

#[macro_export]
macro_rules! read_value {
    ($next:expr, ( $($t:tt),* )) => {
        ( $(read_value!($next, $t)),* )
    };

    ($next:expr, [ $t:tt ; $len:expr ]) => {
        (0..$len).map(|_| read_value!($next, $t)).collect::<Vec<_>>()
    };

    ($next:expr, chars) => {
        read_value!($next, String).chars().collect::<Vec<char>>()
    };

    ($next:expr, usize1) => {
        read_value!($next, usize) - 1
    };

    ($next:expr, $t:ty) => {
        $next().parse::<$t>().expect("Parse error")
    };
}

fn main() {
    let stdin = std::io::stdin();
    let ret = solve(stdin.lock());

    println!("{}", ret);
}

fn gcd_core(a: &u64, b: &u64) -> u64 {
    if *a < *b {
        return gcd_core(b, a);
    }

    if *b == 0 {
        return *a;
    }

    return gcd_core(b, &(a % b));
}

fn _gcd(vec: &Vec<u64>) -> u64 {
    assert!(vec.len() >= 2);

    vec.iter().fold(0, |a, b| gcd_core(&a, &b))
}

fn lcm_core(a: &u64, b: &u64) -> u64 {
    let gcd = gcd_core(a, b);
    return *a * (*b / gcd);
}

fn lcm(vec: &Vec<u64>) -> u64 {
    vec.iter().fold(1, |a, b| lcm_core(&a, &b))
}

fn solve<T: std::io::Read>(reader: T) -> u64 {
    input_macro! {
        reader = reader,
        n: u64,
        vec: [u64; n],
    }

    lcm(&vec)
}

#[cfg(test)]
mod tests {

    #[test]
    fn test_solve_function() {
        assert_eq!(super::gcd_core(&7, &5), 1);
        assert_eq!(super::gcd_core(&4, &2), 2);
        assert_eq!(super::_gcd(&vec!(2, 2, 2)), 2);

        assert_eq!(super::lcm(&vec!(2, 2)), 2);
        assert_eq!(super::lcm(&vec!(2, 2, 2)), 2);
        assert_eq!(super::lcm(&vec!(2, 4, 2)), 4);
        assert_eq!(super::lcm(&vec!(4, 8, 4)), 8);
        assert_eq!(super::lcm(&vec!(4, 8, 5)), 40);

        atcorder::test_function! {
            func = super::solve,
            "2 2 3" => 6,
            "5 2 5 10 1000000000000000000 1000000000000000000" => 1000000000000000000,
        }
    }
}


Measured memory_bytes: 4352