1 (define (scale-tree tree factor)
2   (cond ((null? tree) nil)
3 	((not (pair? tree)) (* tree factor))
4 	(else (cons (scale-tree (car tree) factor)
5 		    (scale-tree (cdr tree) factor))