switch {
  %x = 1
  %y = 
  while %x <= $len($1) {
    inc %x
    inc %y
    %s = %x

    while $mid($1,%x,1) < 60 || %" {
      if ($v1 = ") %" = $iif(!%",1)
      inc %x
    }
    %d = $mid($left(#$1,%x),%s)
    if $2 = %y || ($2* iswmcs %d) return $iif($prop,$noqt($mid(%d,2)),$left(%d,1))
  }
  if (!$2) return %y
}