let
match_compile str =
let
regex =
Str
.regexp str
in
fun
fn
->
Str
.string_match regex fn 0