!7

cmodule IWantYouToBePrelude > DynPrintLog {
  // the spaces
  sS objectiveSpace = 'objective, computerySpace = 'computery, userySpace = 'usery;

  transient WordTokRule rule_iWantYouToBe = wordTokReplacerRule(
    "I want you to be my assistant", "assistant", "I want that {you are my assistant}");
    
  transient MultiMap<S, WordTokRule> rulesForSpace = litmultimap(
    userySpace, ll(rule_iWantYouToBe)
  );
  
  Collection<S> applyRules(L<WordTokRule> rules, S s) {
    ret concatListsToCISet(map(rules, rule ->
      rule.matches(s) ? getStringEmits(rule) : null
    );
  }

  Set<S> rewriteInSpace(S space, S input) {
    Set<S> out = linkedCISet();
    L<WordTokRule> rules = rulesForSpace.get(space);
    functionReturningList_transitiveHull_ciSet(func(S s) -> Collection<S> { applyRules(rules, s) }, input, seen := out);
    ret out;
  }
  
  start-thread {
    S input = "I want you to be my mother";
    Set<S> outputs = rewriteInSpace(userySpace, input);
    pnl(outputs);
    printDone();
  }
}