125
@verb #7407:"teacher-fix" any none none rdo #7407
@program #7407:"teacher-fix" any none none
for x in (dobj.teachers)
  if (!(dobj in `x.students ! ANY => {}'))
    dobj.teachers = setremove(dobj.teachers, x)
    this:tell("Invalid teacher ", $su:nn(x), " removed.")
  endif
endfor
.

0