(defun process-numeric-list ()
  ;; 可変長の数値リストを定義
  (let ((data-list '(150 420 300 250 380)))
    (format t "元のリスト: ~A~%" data-list)
    ;; リストの要素を降順 (>) にソートする
    (let ((sorted-list (sort data-list #'>)))
      ;; 2番目の要素（2番目に大きい値）を抽出して表示
      (format t "2番目の要素: ~A~%" (second sorted-list)))))

(process-numeric-list)