KGRlZnVuIHByb2Nlc3MtbnVtZXJpYy1saXN0ICgpCiAgOzsgbGV0KiDjgpLkvb/jgYbjgZPjgajjgafjgIFkYXRhLWxpc3Qg44KS5L2/44Gj44Gm44GZ44GQIHNvcnRlZC1saXN0IOOCkuWumue+qeOBp+OBjeOBvuOBmQogIChsZXQqICgoZGF0YS1saXN0ICcoMTUwIDQyMCAzMDAgMjUwIDM4MCkpCiAgICAgICAgIChzb3J0ZWQtbGlzdCAoc29ydCAoY29weS1saXN0IGRhdGEtbGlzdCkgIycmZ3Q7KSkpCiAgICAKICAgIChmb3JtYXQgdCAmcXVvdDvlhYPjga7jg6rjgrnjg4g6IH5BfiUmcXVvdDsgZGF0YS1saXN0KQogICAgKGZvcm1hdCB0ICZxdW90O+OCveODvOODiOW+jOOBruODquOCueODiDogfkF+JSZxdW90OyBzb3J0ZWQtbGlzdCkKICAgIAogICAgOzsgc2Vjb25kIOmWouaVsOOCkuS9v+OBo+OBpjLnlarnm67jga7opoHntKDjgpLmir3lh7rjgZfjgabooajnpLoKICAgIChmb3JtYXQgdCAmcXVvdDsy55Wq55uu44Gu6KaB57SgOiB+QX4lJnF1b3Q7IChzZWNvbmQgc29ydGVkLWxpc3QpKSkpCgo7OyDplqLmlbDjga7lrp/ooYwKKHByb2Nlc3MtbnVtZXJpYy1saXN0KQ==

(defun process-numeric-list ()
  ;; let* を使うことで、data-list を使ってすぐ sorted-list を定義できます
  (let* ((data-list '(150 420 300 250 380))
         (sorted-list (sort (copy-list data-list) #'>)))
    
    (format t "元のリスト: ~A~%" data-list)
    (format t "ソート後のリスト: ~A~%" sorted-list)
    
    ;; second 関数を使って2番目の要素を抽出して表示
    (format t "2番目の要素: ~A~%" (second sorted-list))))

;; 関数の実行
(process-numeric-list)