switch {
  %a = 1
  %b = -1
  while $mid($1 a,%a,1) >= 
 {
    %i = $v1
    if (%i = ") inc %q
    if %i isalpha && %q !& 1 {
      inc %b
      if $2 isincs %b %c && %b {
        var %f $iif($prop,$remove(%d,"),%c)
      }
      var %c %i,%d
    }
    else %d = $+(%d,%i,")
    inc %a
  }
  return $iif($2,%f,%b)
}