[CM] funny scheme code

[Bill Schottstaedt]

For some reason, this code strikes me as funny:

(let ((j (lambda () 0))
	(k 0))
  (do ((i (j) (j))
	  (j (lambda () 1) (lambda () (+ i 1))))
          ((= i 3) k)
     (set! k (+ k i))))

would you believe 6?  Maybe I need a vacation.