switch {
  %x = 1
  %s = 0
  while $mid($1,%x,1) != $! {
    %l = $v1
    inc %s
    inc %x
    %m = 65
    if $mid($1,%x,1) == " {
      inc %x
      %m = 34
    }
    %n = %x
    while ($asc($mid($1,%n)) && $v1 != %m && (($v1 < %m) || (%m == 34))) inc %n
    if %s == $2 || %l === $2 {
      dec %n %x
      if ($prop) return $iif(%n,$mid($1,%x,%n))
      return %l
    }
    %x = %n $iif(%m == 34,+ 1)
  }
  if (!$2) return %s
}