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