Megatest

			  "fossil json timeline checkin -n 0"
			json-read)))
	 (timeline   (aref (aref data "payload") "timeline")) ;; extract the timeline alists
	 (start-flag #f)
	 (end-flag   #f))
    ;; now we have all needed data as a list of alists in time order, extract the
    ;; messages for given branch starting at start-tag and ending at end-tag
    (reverse ;; return results oldest to newest
    (filter
     (lambda (x) x)
     (map
      (lambda (entry)
	(let ((tags (aref entry "tags")))
	  (if (or (not tags) ;; eh?
		  (not (list? tags)))

				     `(,usr
				       ,(time->string (seconds->local-time tms) "WW%U.%w %H:%M")
				       ,cmt)
				     #f)))
			(if (member end-tag tags)(set! end-flag #t))
			res))
		    #f)))))
      (reverse timeline)))))
       (reverse timeline))))))

(define (process-fossil branch start-tag end-tag)
  (print-rows
   (extract-history branch start-tag end-tag)))

;; process command line args and dispatch the call to fossil processing
;;