(format t "hello")
(setf *total_glass* 0)
(defun sell (n)
  (setf *total_glass* (incf *total_glass* n))
  (format t "~&已经销售~S杯柠檬茶" *total_glass*))
(sell 4)
(sell 5)