1 665c255d 2023-08-04 jrmu (define (scale-tree tree factor)
2 665c255d 2023-08-04 jrmu   (cond ((null? tree) nil)
3 665c255d 2023-08-04 jrmu 	((not (pair? tree)) (* tree factor))
4 665c255d 2023-08-04 jrmu 	(else (cons (scale-tree (car tree) factor)
5 665c255d 2023-08-04 jrmu 		    (scale-tree (cdr tree) factor))