From 《ANSI Common Lisp》Chapter Three Section Trees
Added function:

	our-subst - replaces elements in a tree