;;; Returns a new stream with each element ;;; multiplied by the scale factor (define (stream-scale stream scale) (if (null? stream) '() (cons-stream (* (stream-car stream) scale) (stream-scale (stream-cdr stream) scale))))