;;;; debugging stuff
(defmacro o (x) 
  `(progn (format t "[~a=~a]~%" ',x ,x) ,x))

(defun usage-o ()
  (let ((out 0))
    (dotimes (i 10 out) 
      (setf out (+ out i))
      (o i)
      (o out))))

(egs :o
     (eg '(usage-o)))