1 (define (scale-list items factor)
2   (if (null? items)
3       nil
4       (cons (* (car items) factor)
5 	    (scale-list (cdr items) factor))))
6 (scale-list (list 1 2 3 4 5) 10)