switch {
  noop $regex($1-,/([a-z](?:"[^"]+|[^a-z]+)?)/ig)
  var %a 1,%b $remove($regml($2),"),%d $iif($prop = data,1),%e $!iif(%d,$mid(%b,2),$mid(%b,1,1))
  if ($2 isnum) return $(%e,2)
  while $regml(%a) {
    var %b $remove($v1,")
    if ($2 $+ * iswmcs %b) return $(%e,2)
    inc %a
  }
}