switch {          
  $iif($2,%x =,return) $regex($1,/(.(?:".+?"|[\d.-]*))/g)
  while %x {
    %r = $regml(%x)
    if %x = $2 || ($2* iswmcs %r) return $iif($prop,$noqt($mid(%r,2)),$left(%r,1))
    dec %x
  }     
}