Megatest

(declare (unit items))
(declare (uses common))
(declare (uses debugprint))

(include "common_records.scm")

(import debugprint)
;; (import debugprint)

;; Puts out all combinations
(define (process-itemlist hierdepth curritemkey itemlist)
  (let ((res '()))
    (if (not hierdepth)
	(set! hierdepth (length itemlist)))
    (let loop ((hed (car itemlist))