-#(define $globalheader #f)
-#(define version-seen? #f)
-
-#(set-debug-cell-accesses! 2500)
-
-
+#(define output-count 0)
+#(define $defaultheader #f)
+#(define version-seen #f)
+#(define expect-error #f)
+#(define output-empty-score-list #f)
+#(define output-suffix #f)
+#(use-modules (scm clip-region))