Could be made a little simpler .. ?

on *:QUIT:{
  if (*services* isin $1-) {
    var %i = 1
    while (%i <= $chan(0)) {
      if (R isincs $chan(%i).mode) {
        mode $chan(%i) -R
      }
      inc %i
    }
  }
}