Отображение деревьев

Функция scale-tree аналогична scale-list.
Аргументы:

• дерево, листьями которого являются числа,
• числовой множитель.

Результат: дерево той же формы, где каждый лист умножен на заданный множитель.

Рекурсивная схема scale-tree похожа на схему count-leaves:

(defun scale-tree (tree factor)
  (cond ((null tree) nil)
        ((atom tree) (* tree factor))
        (t (cons (scale-tree (first tree) factor)
                 (scale-tree (rest tree) factor)))))