(let ((array (make-array 10)))
  (setf (aref array 0) 1
          (aref array 1) 3)
  (print array))