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