!7

sS rule = [[
+ $x is said
+ $y is a phrase
+ $old, $new = gazelle_singleChangedWord($y, $x)
+ $capitalized = quote(capitalizeWord($x, $old))
=> Surely you mean: $capitalized.
]];

cmodule PhraseCorrector > DynPrintLog {
  start-thread {
    S in_all, out = unpair tok_splitAtDoubleArrow_pair(rule);
    LS ins = tok_splitAtPlusAtBeginningOfLine(in_all);
    pnlWithHeading("INS", ins);
    printWithHeading("OUT", out);
  }
}