switch {
  var %v $1,%i 0
  while (%v) {
    var %w $mid(%v,2),%a $asc(%w),%l $left(%v,1),%s ..,%d
    if (%a < 65) var %d $calc(%w),%s %d .
    if (%a == 34) var %d $gettok(%w,1,34),%s %d ...
    inc %i
    if %l === $2 || %i == $2 {
      return $iif($prop,%d,%l)
    }
    %v = $mid(%v,$len(%s))
  }
  if (!$2) return %i
}