sclass ClassesAndPatterns {
  new LPair<Class, S> entries;
  bool convertPatternsToLowerCase = true; // should only 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;
  }
  
  S unparse(O o) {
    if (o == null) null;
    if (!o instanceof IFieldsToList) ret str(o);
    Class c = _getClass(o);
    Pair<Class, S> p = firstThat(entries, x -> x.a == c);
    if (p == null) ret str(o); // class not in list
    ret format3_curlyIfMultiToken(p.b, allToString_array(o/IFieldsToList._fieldsToList()));
  }
}