let _regexp_rule args f = let len = Array.length args in if len < 1 then false else ( let re = Str.regexp args.(0) in Str.string_match re f 0 )