let ( !- ) r =
  match !r with
  | None -> !*failsafe_display
  | Some x -> x