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