(defun max (l &rest ll)
    (if (null l) nil
        (max1 ll (unmarker l))))
(defun max1 (l max)
    (if (null l) max
        (if (> (unmarker (car l)) max) (max1 (cdr l) (unmarker (car l)))
	    (max1 (cdr l) max))))
(defun unmarker (n)
    (if (markerp n) (marker-position n) n))