(defun selector (number selectors)
   "Takes a number to compare to and a selectors list composed of a number
to compare to and a return value"
  (cdr (find-if (lambda (x) (>= number (car x))) selectors)))