(defparameter *most*  most-positive-fixnum)
(defparameter *least* most-negative-fixnum)
(defparameter *zip* (/ 1 *most*))