alias flatlist { 
  var %mode = $gettok($1-,1,32), %params = $gettok($1-,2-,32),%x = 1,%y = 1,%m = 0, %p = 1,%result,%sign = +
  while ($mid(%mode,%x,1)) { 
    var %d = $ifmatch
    if (%d == -) { var %m = 1 | var %sign = - }
    elseif (%d == +) { var %p = 1 | var %sign = + }
    if ($istok(o v b k l,%d,32)) && (!$istok(+ -,%d,32)) { 
      if (%m == 1) { inc %y | var %result = %result $+(%sign,%d) $gettok($1-,%y,32) }
      elseif (%p == 1) { inc %y | var %result = %result $+(%sign,%d) $gettok($1-,%y,32) }
    }
    inc %x
  }
  !return %result
}

Commenting Options