tests/regex.scm: working `(re-match re str)`

Use it like:

    ;> (load "tests/regex.scm")
    ;> (define re (re-compile "(ba*c)*"))
    ;> (re-match re "bacbac")
    (#t ())
    ;> (re-match re "bacbacba")
    (#f ())