対の無限のストリーム

ループを無限ストリームで表現できたりする。
二つのストリームから交互に値を取得する interleave
美しいですね

(define (interleave s1 s2)
    (if (stream-null? s1)
        s2
        (cons-stream (stream-car s1)
                     (interleave s2 (stream-cdr s1)))))