(format t "internal-time-units-per-second: ~A~%" internal-time-units-per-second)
(defparameter *start-time* (get-internal-real-time))
(sleep 1)
(format t "RUNTIME ~A~%" (- (get-internal-real-time) *start-time*))