let
test =
fun
r x
->
Str
.string_match r x 0