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