(define s (cons-stream 1 (add-streams s s)))

; The stream is the sequences of increasing powers of two (1 2 4 8 16 ...),
; because each element is twice the previous.