@verb #7407:"huge-long-death-verb" none none none rdo #7407
@program #7407:"huge-long-death-verb" none none none
for x in (players())
  for y in (players())
    if (y in x.students)
      y.teachers = setadd(y.teachers, x)
    endif
    if (!(y in x.students) && x in y.teachers)
      y.teachers = setremove(y.teachers, x)
    endif
    $command_utils:suspend_if_needed(1) && this:tell(toliteral({x, y}))
  endfor
endfor
player:tell("Done!!!")
"Last modified by Cecil (#7407) on Tue Dec 18 09:27:37 2001 MST."
.