Megatest

			      (for-each
			       (lambda (teststep)
				 (let* ((step-name  (vector-ref teststep 0)))
				   (print step-name " sleep [refdb lookup #{getenv MT_RUN_AREA_HOME}/" stepsrdb " " testname " $MT_ITEM_PATH " step-name "]")))
			       test-steps)

			      ;; now the requirements section
			      (if testconfig
				  (begin
			      (print "\n[requirements]")
			      (for-each
			       (lambda (entry)
				 (print (car entry) " " (cadr entry))) ;; it is not an alist
			       (configf:get-section testconfig "requirements"))

				    (print "\n[requirements]")
				    (for-each
				     (lambda (entry)
				       (print (car entry) " " (cadr entry))) ;; it is not an alist
				     (configf:get-section testconfig "requirements")))
				  (print "WARNING: No testconfig data for " testname ", " item-path))
				    
			      (print "[items]")
			      (print "THE_ITEM [refdb getrow #{getenv MT_RUN_AREA_HOME}/miscinfo itemsinfo #{getenv MT_TESTNAME}| awk '{print $1}'")
			      )))

		      ;; fill the stepsrdb
		      (for-each
		       (lambda (teststep)

		    (lambda ()(print (current-seconds))))
		  (close-output-port ouf))))
	  (runs:dat-last-fuel-check-set! rdat (current-seconds))))))
  
;; Fourth try, do accounting through time
;;
(define (runs:parallel-runners-mgmt rdat)
  (let ((time-to-check 10) ;; 28
	(time-to-wait  30)
  (let ((time-to-check (configf:lookup-number *configdat* "runners" "time-to-check" default: 10)) ;; 28
	(time-to-wait  (configf:lookup-number *configdat* "runners" "time-to-wait" default: 30))
	(now-time      (current-seconds)))
    (if (> (- now-time (runs:dat-last-fuel-check rdat)) time-to-check) ;; time to check
	(runs:wait-on-softlock rdat "runners"))))

;; To test parallel-runners management start a repl:
;;  megatest -repl
;; then run: