(defstruct header name numericp classp ignorep)

(defun columns-new (cols klass)
  (let ((counted (make-counted)))
    (doitems (col i cols)
	     (counted+ (make-header :name col
				    :numericp (numericp col)
				    :ignorep (ignorep col)
				    :classp  (= i klass))
		       counted))
    (setf (counted-all counted)
          (reverse (counted-all counted)))
    counted))

(defun columns-header (cols)
  (mapcar #'header-name (counted-all cols)))
   
(defun numericp (x)
  (equal (char (symbol-name x) 0) #\$))

(defun ignorep (x)
  (equal (char (symbol-name x) 0) #\?))