deleteExam(ident uid, ident id) {
  assume exists //accounts/account[uid]/admin;
 
  assume exists //exams/exam[id];
 
  assume size(//acounts/account/examiner[id]) = 0;
 
  remove //exams/exam[id];
}