let
validate_name =
fun
s
->
Str
.string_match (
Str
.regexp
"^[a-zA-Z0-9_]+$"
) s 0