switch {
  %x = 1
  %s = 0
  while $regex($mid($1,%x),^((.)(".+?"|[\d-.]*)?)) {
    inc %s
    if %s == $2 || $regml(2) === $2 { return $remove($regml($iif($prop,3,2)),") }
    inc %x $len($regml(1))
  }
  if (!$2) return %s
}