(defstruct Missing [id i32])

(defn load [n i32] i32
  (restart-case
    (do (error (Missing {:id n}))   ; Never — only a transfer gets past
        0)
    (use-placeholder [] -1)
    (retry           [] 7)))

(defn main []
  (print-i64 (i64 (load 1)))
  (newline))