!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;
  
  start-thread {
    root = new Node;
    cset(root, comment := "Root");
    print(+root);
  }
}