(define (smooth stream)
  (stream-map (lambda (a0 a1) (/ (+ a0 a1) 2)) stream (stream-cdr stream)))