(defun process-numeric-list ()
  ;; list 関数を使って動的にリストを生成する
  (let ((data-list (list 150 420 300 250 380)))
    (format t "元のリスト: ~A~%" data-list)
    ;; リストの要素を降順にソートする
    (let ((sorted-list (sort data-list #'>)))
      ;; 1番目の要素（最高値）を抽出して表示
      (format t "1番目の要素: ~A~%" (first sorted-list)))))

(process-numeric-list)