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