SICP 問題 3.53

(define (add-streams s1 s2)
  (stream-map + s1 s2))

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

sは2のn乗のストリームを作る．