!7

cmodule2 InputTreeTest > DynPrintLog {
  concept Node {
    new RefL<Node> followUps;
    
    toString { ret getString comment(this); }
  }
  
  concept StringNode > Node {
    S string;
    
    *() {}
    *(S *string) {}
    
    toString { ret quote(string); }
  }
  
  transient Node root;
  transient LS texts = ll("Hello world", "Hello you");
  
  start-thread {
    root = new Node;
    cset(root, comment := "Root");
    fOr (S text : texts)
      addText(text);
    printIndentedStruct(+root);
  }
  
  void addText(S text) {
    Node node = root;
    for (S string : charactersAsStrings(text)) {
      Node next = findObject(node.followUps, +string);
      if (next == null)
        node.followUps.add(next = cnew StringNode(+string));
      node = next;
    }
  }
}