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

(defun p (x)
  (format nil "~4<~a~>" (round (* 100 x))))

(defun read1 (f)
  (with-open-file (str f) 
    (read str nil)))

(defun majority (l)
  (let* ((h (make-hash-table))
	 (max *least*)
	 (out (car l)))
    (dolist (item l out)
      (let ((new (incf (gethash item h 0))))
	(when (> new max)
	  (setf max new
		out item))))))