TREE-SUBSTITUTE
===============

Syntax: (tree-substitute <neu> <alt> <Baum>
                [:test <Test>])         ;Babylon Lisp
        (subst <neu> <alt> <Baum>
                [:test <Test>])         ;Common Lisp

Diese Funktion tauscht die alten Elemente der Liste
<Baum> gegen neue. Sie bearbeitet nicht nur die Liste
<Baum>, sondern bearbeitet auch alle Listen, die in
<Baum> enthalten sind.

Beispiel:      >(tree-substitute 12 1 '((21 1) 3 1))
               ((21 12) 3 12)