(defun runall ()
  (let* ((datasets (list (kc2) (mc2) (kc3) (mw1) (pc1) (ar3) (ar4) (ar5)));jm1, kc1, cm1
	 (results (list))
	 (dateTime (multiple-value-list (get-decoded-time)))
	 (filename (format nil  "data/RDR-~A-~A-~A-~A-~A-~A.dat" (sixth dateTime) 
			                                         (fifth dateTime) 
								 (fourth dateTime) 
								 (third dateTime) 
								 (second dateTime) 
								 (first dateTime))))

    (with-open-file (out filename :direction :output :if-does-not-exist :create)
      (dolist (dataset datasets)
	(dotimes (x 2)
	  ;(print (format nil "~A - ~A" (table-name dataset) x))
	  (let ((tdataset (table-copy dataset)))
	    (setf (table-name tdataset) (concatenate 'string (format nil "~A" (table-name dataset)) "-10"))
	    (setf results (append (rdr (discretize (table-copy tdataset (shuffle (table-egs tdataset))) 10):n 5) results))
	    (setf (table-name tdataset) (concatenate 'string (format nil "~A" (table-name dataset)) "-5"))
	    (setf results (append (rdr (discretize (table-copy tdataset (shuffle (table-egs tdataset))) 5) :n 5) results))
	    (setf (table-name tdataset) (concatenate 'string (format nil "~A" (table-name dataset)) "-3"))
	    (setf results (append (rdr (discretize (table-copy tdataset (shuffle (table-egs tdataset))) 3) :n 5) results)))))
      (setf results (mapcar #'(lambda (x) (list (abcd-for x) (abcd-a x) (abcd-b x) (abcd-c x) (abcd-d x) (accuracy x) (pd x) (pf x) (precision x))) results))
      (format out "~A" results))
    filename))