@@ -17,10 +17,11 @@
 
 (use sqlite3 srfi-1 posix regex regex-case srfi-69)
 
 (import (prefix sqlite3 sqlite3:))
 
+(include "common.scm")
 (include "margs.scm")
 (include "keys.scm")
 (include "items.scm")
 (include "db.scm")
 (include "configf.scm")
@@ -48,12 +49,15 @@
 (define remargs (args:get-args 
 		 (argv)
 		 (list  "-rows"
 			"-run"
 			"-test"
+			"-debug"
 			) 
 		 (list  "-h"
+			"-v"
+			"-q"
 		       )
 		 args:arg-hash
 		 0))
 
 (if (args:get-arg "-h")
@@ -85,10 +89,16 @@
 (define *start-run-offset*  0)
 (define *start-test-offset* 0)
 (define *examine-test-dat* (make-hash-table))
 (define *exit-started* #f)
 
+(define *verbosity* (cond
+		     ((args:get-arg "-debug")(string->number (args:get-arg "-debug")))
+		     ((args:get-arg "-v")    2)
+		     ((args:get-arg "-q")    0)
+		     (else                   1)))
+
 (define (message-window msg)
   (iup:show
    (iup:dialog
     (iup:vbox 
      (iup:label msg #:margin "40x40")))))