!7

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

cmodule PhraseCorrector > DynPrintLog {
  start-thread {
    S in_all, out = unpair tok_splitAtDoubleArrow_pair(rule);
    LS ins = tok_splitAtPlusAtBeginningOfLine(in_all);
    printStructs(+ins, out);
  }
}