Mine

ON *:OP:#: {
  if ($opnick == $me) {
    var %i = 1
    while (%i <= %todo. [ $+ [ $network ] $+ . $+ [ $chan ] $+ .0 ]) {
      %todo. [ $+ [ $network ] $+ . $+ [ $chan ] $+ . $+ [ %i ] ]
      //unset %todo. [ $+ [ $network ] $+ . $+ [ $chan ] $+ . $+ [ %i ] ]
      inc %i
    }
    //unset %todo. [ $+ [ $network ] $+ . $+ [ $chan ] $+ .0 ]
  }
}

/queue {
  var %i
  if (%todo. [ $+ [ $network ] $+ . $+ [ $chan ] $+ .0 ] > 0) {
    %i = %todo. [ $+ [ $network ] $+ . $+ [ $chan ] $+ .0 ]
  }
  else {
    %i = 0
  }
  inc %i
  //set %todo. [ $+ [ $network ] $+ . $+ [ $chan ] $+ .0 ] %i
  //set %todo. [ $+ [ $network ] $+ . $+ [ $chan ] $+ . $+ [ %i ] ] $1-
}