(defmacro debug
  [expr]
  `(let [value# ~expr]
     (println '~expr "=>" value#)
     value#))

(defmacro cond-debug [& clauses]
	(when clauses
		(list 'if (list 'debug (first clauses))
					(if (next clauses)
						(second clauses)
						(throw (IllegalArgumentException.
										"cond-debug requires an even number of forms")))
					(cons 'cond-debug (next (next clauses))))))