; ソートして部分リストを足し合わせ 4 で割った平均を出力する
(defun main ()
  (format t "~,2f~%" (/ (reduce #'+ (sort (loop repeat 6 collect (read)) #'<) :start 1 :end 5) 4d0)))
(main)