(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)

KGRlZnVuIHByb2Nlc3MtbnVtZXJpYy1saXN0ICgpCiAgOzsgbGV0KiDjgpLkvb/jgYbjgZPjgajjgafjgIFkYXRhLWxpc3Qg44KS5L2/44Gj44Gm44GZ44GQIHNvcnRlZC1saXN0IOOCkuWumue+qeOBp+OBjeOBvuOBmQogIChsZXQqICgoZGF0YS1saXN0ICcoMTUwIDQyMCAzMDAgMjUwIDM4MCkpCiAgICAgICAgIChzb3J0ZWQtbGlzdCAoc29ydCAoY29weS1saXN0IGRhdGEtbGlzdCkgIyc+KSkpCiAgICAKICAgIChmb3JtYXQgdCAi5YWD44Gu44Oq44K544OIOiB+QX4lIiBkYXRhLWxpc3QpCiAgICAoZm9ybWF0IHQgIuOCveODvOODiOW+jOOBruODquOCueODiDogfkF+JSIgc29ydGVkLWxpc3QpCiAgICAKICAgIDs7IHNlY29uZCDplqLmlbDjgpLkvb/jgaPjgaYy55Wq55uu44Gu6KaB57Sg44KS5oq95Ye644GX44Gm6KGo56S6CiAgICAoZm9ybWF0IHQgIjLnlarnm67jga7opoHntKA6IH5BfiUiIChzZWNvbmQgc29ydGVkLWxpc3QpKSkpCgo7OyDplqLmlbDjga7lrp/ooYwKKHByb2Nlc3MtbnVtZXJpYy1saXN0KQ==