;;; Adds two infinite streams element-wise
(define (add-two-streams s1 s2)
  (cons-stream 
   (+ (stream-car s1)
      (stream-car s2))
   (add-two-streams (stream-cdr s1)
                    (stream-cdr s2))))