Array Reading and Printing Using LISP

(defun main()

(print "Enter the Limit")

(setf  l(read))

(setf  ar ( make-array l))

(print "Enter the Elements")

(dotimes (i l)

(setf  (aref ar i)(read)))

(dotimes (i l)

(print (aref ar i))

)
)