(defun demo1b (&optional (dull 0.01) (sort #'identity))
  (load "data/vehicle.lisp")
  (let* ((r   (vehicle))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

(defun demo1b1 (&optional (dull 0.01) (sort #'identity))
  (load "data/vehicle1.lisp")
  (let* ((r   (vehicle))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

(defun demo1c (&optional (dull 0.01) (sort #'identity))
  (load "data/wave-form5000.lisp")
  (let* ((r   (wave-form5000))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))


; wrong width for all of these
(defun demo1d (&optional (dull 0.01) (sort #'identity))
  (load "bor/all_databor.lisp")
  (let* ((r   (all_databor))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

(defun demo1e (&optional (dull 0.01) (sort #'identity))
  (load "data/rock_mine.lisp")
  (let* ((r   (rock_mine))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

(defun demo1f (&optional (dull 0.01) (sort #'identity))
  (load "bor/bballbor.lisp")
  (let* ((r   (bballbor))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

;;chokes
(defun demo1g (&optional (dull 0.01) (sort #'identity))
  (load "bor/bodyfatbor.lisp")
  (let* ((r   (bodyfatbor))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

(defmacro defdemo (n f c)
  `(defun ,n (&optional (dull 0.01) (sort #'identity))
    (load ,f)
    (let* ((r   ,c)
           (all (rel-height r)))
      (best (used-samples r :sort sort) all dull))))

; (defdemo demo1f "bor/boltsbor.lisp" (boltsbor))

(defun rundemo (f c)
  (format t "~%~% --| ~a : ~a |--------~%" f c)
  (load f)
  (let* ((r   (funcall c))
         (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

; (rundemo "bor/boltsbor.lisp" #'boltsbor)

(defun demo1h (&optional (dull 0.01) (sort #'identity))
  (load "bor/boltsbor.lisp")
  (let* ((r   (boltsbor))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

(defun demo1i (&optional (dull 0.01) (sort #'identity))
  (load "bor/housingbor.lisp")
  (let* ((r   (housingbor))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

(defun demo1j (&optional (dull 0.01) (sort #'identity))
  (load "bor/lowbwtbor.lisp")
  (let* ((r   (lowbwtbor))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

(defun demo1k (&optional (dull 0.01) (sort #'identity))
  (load "bor/pollutionbor.lisp")
  (let* ((r   (pollutionbor))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

;nil for some reason
(defun demo1m (&optional (dull 0.01) (sort #'identity))
  (load "bor/quakebor.lisp")
  (let* ((r   (quakebor))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

(defun demo1n (&optional (dull 0.01) (sort #'identity))
  (load "bor/sensorybor.lisp")
  (let* ((r   (sensorybor))
	 (all (rel-height r)))
    (best (used-samples r :sort sort) all dull)))

(defun demos ()
  (mapc
   #'(lambda (x)
       (format t "~%~% --| ~a |--------~%" x)
       (funcall x 0.01 'entropy-sort))
   '(demo1b
     demo1b1
     demo1c
     demo1d
     demo1e
     demo1f
     demo1g
     demo1h
     demo1i
     demo1j
     demo1k
     demo1m
     ;demo1n
     )))