# Pastebin WXAg0QSP
(defmacro with-cpring5 (cpinternals &body body)
  `(macrolet ((@5q  (cpindex) `(aref ,',cpinternals ,cpindex))
              (@5phi (cpindex) `(aref ,',cpinternals (+ 1 ,cpindex))))
     ,@body))