(local (prev)
  (dotimes (i (length all-readings))
    (unless (= 1 (all-readings i -2))
      (setq prev
        (if (zero? i) 0 (all-readings (- i 1) -1)))
      (setf (all-readings i -1) (+ 1 prev))))
  'ok)