(defclass col ()
	   name
	   classp
	   ignorep)


($defclass nb () train test
	   data cols)

(defun nb (trainset &optional (testset trainset))
  (in nb nb 
      (setf train (read1 trainset)
	    test  (read1 testset))