// TODO: umlaut domains
sbool isSimpleDomainName(S s) {
  ret regexpMatchesIC("[a-z0-9\\-]+\\.[a-z]+", s);
}