(setf *default-pathname-defaults* (make-pathname :directory (format nil "~A" (nth 1 *posix-argv*))))
(defparameter *TEST* (nth 3 *posix-argv*))
(defparameter *TRAIN* (nth 2 *posix-argv*))
(defparameter *USELWL* (nth 4 *posix-argv*))

(print *default-pathname-defaults*)

(load "wisp-rdr.lisp")
;/tmp/bryanl/tmp.OvQid15095
(quit)