;; straight bootstrapping code
(require 'pp)

(let ((pp-use-max-width t)
      (pp-max-width 80)
      (org-persist--index
       (with-current-buffer (find-file-noselect "org-persist-index.el")
         (goto-char (point-min))
         (read (current-buffer)))))
  (benchmark-run (pp org-persist--index)))