!7

p-exp {
  S pat = "$gertrude is $afraid_of $wolves";
  S s = "klaus is afraid of wolves";
  SS matches = litorderedmap("$gertrude" := "Klaus", "$afraid_of" := "afraid of");

  printStruct(matchDollarVarsIC_underscores(pat, s));
  print(new NLStringMatcher_dollarVars_underscores().match(pat, s, matches));
  printStruct(matches);
}