switch {
  var %p 1,%c,%q,%i 0,%s,%a,%b
  while $mid($1,%p,1) != $null {
    %c = $v1
    if (%c = ") %q = $iif(%q,0,1)
    if !%q {
      if %c isalpha {
        inc %i
        if %s && (%b < /) %b = %p - %a
        if %i = $2 || (%c === $2) var %s %c,%a %p + 1
      }
    }
    inc %p
  }
  if %a && (%b < /) %b = %p
  return $iif(!$2,%i,$iif($prop,$iif(%b,$noqt($mid($1,%a,%b))),%s))
}