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