module mod1
integer(8) :: time
end module mod1


program aaa
use mod1
implicit none
integer(8) :: tt(100)=0
integer :: i,j,k,n

read(*,*) n
do i=1,n
	read(*,*) tt(i)
enddo

time = tt(1)


if(n>=2) then
	do i=2,n
		call saishou(time,tt(i))
	enddo
endif

write(*,*) time


contains
	subroutine saishou(x,y)

		implicit none
		integer(8) :: x,y,x0,y0,r,tmp,koubai
	
		x0 = x
		y0 = y
		
		if(x < y) then
			tmp = x
			x = y
			y = tmp 
		endif

		r = mod(x,y)

		do while (r .ne. 0) 
			x = y
			y = r
			r = mod(x,y)
		enddo
		
		time = x0 / y * y0

	end subroutine
	
end program