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