(defun demos (&rest l)
  "e.g. (demos '(+ 1 2) (member 'c '(a b c d e f g)))"
  (let ((i 0))
    (dolist (demo l)
      (format t "~%==== ~a~%IN : ~a~%OUT: ~a~%" 
	      (incf i) demo (demo1 demo)))))

(defun demo1 (demo)
  (with-output-to-string (stream)
    (let ((*standard-output* stream))
      (eval demo))))