!7

cmodule WatchThisTrickMate > DynPrintLog {

  class FactCondition implements Runnable {

    S text;

    Runnable action;

    *() {}

    *(S *text, Runnable *action) {}

    run {

    }

    toString { ret "if {" + text + "} => " + action; }

  }

  start-thread {

    dm_useLocalMechListCopies();

    /*L<WordTokRule> rules = map wordTokReplacerRuleOnXY(splitAtEmptyLines([[

      [heard] you must watch {this trick}

      => [implied] {this trick} is very good

      [heard] you must watch {this trick}

      + [fact] i have watched {this trick}

      => [say] Thanks, I've seen it already

      [heard] you must watch {this trick}

      + [fact] i have not watched {this trick}

      => [say] Well... I haven't seen it yet, so maybe I should

    ]]));*/

    new L<Runnable> continuations;

    L<WordTokRule> rules = ll(

      WordTokReplacer_es1(

        "[heard] you must watch {this trick}", "",

        "[implied] {this trick} is very good"),

      WordTokReplacer_es1(

        "[heard] you must watch {this trick}", "",

        "[say] Thanks, I've seen it already") {

        run {

          continuations.add(print(new FactCondition("i have watched {this trick}", r emitOut)));

        }

      }

    );

    S s = "you must watch this trick";

    pnl(extsToString /*uniquifyMap tok_dropCurlyBrackets*/(iterateHull(func(ExtS s) -> L<ExtS> {

      print("Processing: " + extToString(s));

      ret listPlusNempties_es(

        applyAttractors_es(rules, ll(s)),

        extMap_verbose tok_dropCurlyBrackets(s),

        extMap_verbose ai_dropFillers1(s),

        extMap_verbose ai_groupTheAdjectiveNoun(s),

        extMap_verbose ai_groupSimplestNounPhrases2(s));

    }, makeExt(s, type := "heard"))));

    print("Have " + n2(continuations, "continuation"));

  }

}