(defun process-numeric-list ()
  ;; 可変長の数値リストを定義
  (let ((data-list '(150 420 300 250 380)))
    (format t "元のリスト: ~A~%" data-list)

    ;; リストを降順にソート
    (let ((sorted-list (sort (copy-list data-list) #'>)))

      ;; 2番目に大きい要素を表示
      (format t "2番目に大きい要素: ~A~%" (second sorted-list)))))

(process-numeric-list)