(defun Vorteil (range)
  (defvar A-geld 0) ;geld der kontrahenten
  (defvar B-geld 0)
  (dotimes (i range)
    (defvar sum 0)
     (dotimes (x 3)
       (defvar tmp 0)
       (setf tmp (+ (random 15) 3))
       (setf sum (+ sum tmp)))
     (setf A-geld (+ A-geld (- sum 10)))
     (setf B-geld (- sum 10)))
     (format t "Geld A:~a~%" A-geld)
     (format t "Geld B:~a~%" B-geld))