bcc32

(define-syntax stream-cons
  (syntax-rules ()
    ((_ h t)
     (cons h (delay t)))))

(define stream-car car)
(define (stream-cdr stream)
  (force (cdr stream)))

(define stream-nil '())