(load-relative "sig.ss")
(when (>= (vector-length argv) 5)
  (let* ([arg (lambda (n) (vector-ref argv n))]
	 [a0   (arg 0)]
	 [a1   (arg 1)]
	 [a2  (arg 2)]
	 [file1  (arg 3)]
	 [file2  (arg 4)])
    (invoke-unit/sig
     (compound-unit/sig (import)
       (link (ARGS : args^ ((unit/sig args^ (import)
			      (define size (string->number a0))
			      (define secs (string->number a1))
			      (define quiet (string=? a2 "quiet")))))
	     (COM : top^ ((load-relative "common.ss") ARGS))
	     (M : () ((unit/sig ()
			(import top^)
			(run file1 file2))
		      COM)))
       (export)))))
(exit)