;;; 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))))