Some more progress. I really should read more of this book.

ex-1-11.rkt

@@ -14,9 +14,9 @@
 
 
 (define-syntax-rule (meas form)
-  (let ([my-time (current-inexact-milliseconds)])
+  (let ([my-time (real-time)])
     (let ([res form])
-      (- (current-inexact-milliseconds) my-time))))
+      (- (real-time) my-time))))
 
 
 (define (recursive n)
@@ -32,6 +32,9 @@
 (define (iter-start n)
   (iter 0 1 2 (- n 2)))
 
+;; note, as the book says,
+;; this generates an *iterative process*, despite being
+;; fully recursive
 (define (ex-1-11 n)
   (let loop ((i n))
     (if (< i 2)