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 "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)