(defun get-second-element (data-list)
  (second data-list))
(defun process-numeric-list ()
  (let ((data-list '(150 420 300 250 380)))
    ;; 複製して降順ソートし、2番目の要素を抽出
    (let ((sorted-list (sort (copy-list data-list) #'>)))
      (format t "2番目に大きい要素: ~A~%" (second sorted-list)))))

(process-numeric-list)