// e.g. "Did$HappenBefore$" => "Did * Happen Before *"
sS starPatternToClassName(S s) {
  LS tok = replace("*", "$", codeTokens(parse3(s)));
  ret join(map firstToUpper_restToLower(tok));
}