(let (files)
  (defun make  (&optional verbosep &rest new )
    (labels ((load1 (f) (format t "~a " f) 
		    (load (format nil "~a.lisp" f)))
             (loads-shh (fs) (handler-bind 
                                 ((style-warning #'muffle-warning))
                               (mapcar #'load1 fs))))
      (progn
	(format t "~&;")
	(if new (setf files new))
	(if verbosep 
	    (mapcar #'load1 files)
	    (loads-shh files))
	(format t "~&LITHP ITH LITHTENING~%")
	t))))

 (make nil
       "tricks"
       "range"
       "data"
       "dist"
       "topdown"
       )