#| BEGIN (Write your solution here) |#
(define (average x y)
  (/ (+ x y) 2))

(define (smooth stream)
  (cons-stream (average (stream-car stream)
                        (stream-car (stream-cdr stream)))
               (smooth (stream-cdr stream))))
#| END |#