sclass ClassesAndPatterns {
  new LPair<Class, S> entries;
  bool convertPatternsToLowerCase; // should be a cosmetic difference

  *(L<Class> classes, Class outerClass) {
    entries = map(classes,
      c -> pair(c, lowerIf(convertPatternsToLowerCase, dollarsToStarsAndSplitCamelCase(classNameRelativeTo(c, outerClass)))));
  }

  O parse(S s, IF1<S, O> parseArg) {
    new Matches m;
    fOr (Pair<Class, S> p : entries)
      if (match3_plusBrackets_uncurly(p.b, s, m))
        ret nuObject(p.a, mapToObjectArray(parseArg, m.m));
    null;
  }
}