(define (cons-stream x (y lazy-memo))
  (cons x y))

(define stream-car car)

(define stream-cdr cdr)