(load "verbose-bindings.ss")
(display "(+ 5 (verbose-let ((x 3)) (+ x x)))")
(newline)
(+ 5 (verbose-let ((x 3)) (+ x x)))

(display "Testing sum-of-file") (newline)
(define sum-of-file-helper
  (lambda (source)
    (verbose-let ((nextval (read source)))
      (cond
        ((eof-object? nextval) (close-input-port source) 0)
        ((number? nextval) (+ nextval (sum-of-file-helper source)))
        (else (sum-of-file-helper source))))))
(define sum-of-file
  (lambda (filename)
    (sum-of-file-helper (open-input-file filename))))

(display (sum-of-file "numbers.dat"))
(newline)

(display "Testing let*") (newline)
(verbose-let* ((a 3)
       (b (+ a a))
       (c (+ b b))
       (d (+ c c))
       (e (+ d d)))
   (display (+ a b c d e))(newline))