(defun range-inner (lo hi)
  (if (> lo hi)
    nil
    (append
      (list lo)
      (range-inner (1+ lo) hi))))

(defun range (left right)
  (if (< right left)
    (reverse (range-inner right left))
    (range-inner left right)))