(defadvice universal-argument-more
  (before stop-by-eight-before-sixteen (arg) activate)
  "Stop by eight before sixteen."
  (and (consp arg)
       (let ((num (car arg)))
         (if (> 16 num) (ad-set-arg 0 `(,(/ num 2)))))))