SUBST
=====

Syntax: (subst <neu> <alt> <Baum>
             [:test <Test>])         ;Common Lisp
        (tree-substitute <neu> <alt> <Baum>
             [:test <Test>])         ;Babylon 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:      >(subst 12 1 '((21 1) 3 1))
               ((21 12) 3 12)