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