{
  noop $regex($1-,/-([^+]+)/g)
  var %a $regml(0)
  while ($regml(%a)) { 
    var %b $len($v1) 
    while ($mid($v1,%b,1)) { 
      if ($v1 isincs %mlock. [ $+ [ $chan ] ]) { 
        mode $chan + $+ $1- 
      }
      inc %b 
    } 
    inc %a 
  }
}