Megatest

;; monte-carlo-esque random sampling of journal files
;; for all the files:
;;   if .journal
;;      update stats +1 +1
;;      update stats +1  0
;;
(define (tt:write-load-tracking dbdir)
  (let* ((cs  (current-seconds))
	 (key (inexact->exact (quotient cs 10))))
  (directory-fold
   dbdir 
   (lambda (res fname)
     (cons fname res))
   '()))
    (directory-fold
     dbdir 
     (lambda (res fname)
       (cons fname res))
     '())))

)