(load "util.scm")
(load "misc/sicp-query.scm")

(initialize-data-base microshaft-data-base)

(display "\nex-4.70 let-in-add-assertion\n")

; If we assigned to THE-ASSERTIONS directly then the new stream would reference
; itself and we would get an endless stream of the current assertion.
(display "[answered]\n")

(display "\nex-4.71\n")

; ... continue with 4.4.4.6

(display "\nex-4.72\n")

;(display "\nex-4.73\n")
;(display "\nex-4.74\n")
;(display "\nex-4.75\n")
;(display "\nex-4.76\n")
;(display "\nex-4.77\n")
;(display "\nex-4.78\n")
;(display "\nex-4.79\n")