alias regextest {
  var %x = $regex(regextest,$1,$2), %y = $regml(regextest,0), %z = 0 
  echo -eag $!regex( $+ $1 $+ , $+ $2 $+ ) = %x :: ( $+ %y backreference $+ $iif(%y != 1,s) $+ )
  while (%z < %y) {
    inc %z
    %x = $regml(regextest,%z).pos
    echo -ag $ord(%z) backref at position $regml(regextest,%z).pos $+ : 99,08 $+ $regml(regextest,%z) $+  :: $&
      $+($left($1,$calc(%x - 1)),99,$chr(44),08,$regml(regextest,%z),99,$chr(44),99,$right($1,- $+ %x))
  }
}