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

    ;; リストの要素を降順（>）にソートする
    (let ((sorted-list (sort data-list #'>)))

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

(process-numeric-list)