!7

cmodule WordSplitSpike > DynPrintLog {
  start-thread {
    embedded double score_isAWord(S s) { ret ai_ngbWordList_wordScore(s); }
    
    double score = 1;
    for (PairS $pair : splitStringInTwo_iterator("botcompany")) {
      S $x = pairA($pair);
      S $y = pairB($pair);
      double score2 = score*score_isAWord($x);
      double score3 = score2*score_isAWord($y);
      emit(Scored(replaceVars_optRound("($x + $y)",
        litmap(+$x, +$y)), score3));
    }
  }
}