(defun f (n)
  (let ((v (make-array 4)))
    (replace v #(10 20 30))
    (setf (aref v 3) (* 3 3))
    v))