(defun Test (ruleset testdata &optional (prune nil))
  (mapc #'(lambda (x)
	    (format t "0 ~A 1 ~A~%" (MakePrediction ruleset x) (eg-class x))
	    (MakePrediction ruleset x prune))
	(table-rows (xindex-table testdata))))

;(deftest test-test ()
;  (check
;    (samep (test (make-RDRule :fn (MakePredicate 1 'ADULT) :class 'NO) (cross-index (table-copy (titanic) (list (first (table-egs (titanic)))))))
;	   "(#(ABCD :FOR NO :A 0 :B 0 :C 0 :D 1 :ACC 1.00 :PD 1.00 :PF .00 :PREC 1.00 :F .00 :BAL 1.00))")))