let
validate_name_exn =
fun
s
->
if
not (validate_name s)
then
raise (
Invalid_name
s)