static Runnable rThreadPcallMessageBox(O r) {
  ret r { thread { pcall-messagebox { callF(r); } } };
}