switch {
  %s = $1
  while %s  {
    %v = $iif(?"* iswm %s,$qt($token(%s,2,34)))
    if !%v {
      %i = 2
      while $mid(%s,%i,1) != $o && $v1 !isalpha {
        %v = %v $+ $v1
        inc %i
      }
    }
    var %a $+ $asc(%s) $noqt(%v)
    %s = $mid(%s,$len(.. $+ %v))
  }
  %n = $var(a*,$2)
  %w = $var(a $+ $asc($2),1)
  return $iif($prop,$(,$iif($2 isnum,%n,%w)),$iif($2 isnum,$iif($2,$chr($mid(%n,3)),%n),$iif(%w,$2)))
}