!7

!include once #1017535 // Computation Tree

p-exp {
  ObjectNode root = new(mL("English sentence patterns"));
  
  //processNode_recursive(root, 10);
  
  showFrame(jDynamicTree(root, ct_getChildren()));
}

svoid ct_objectNodeToListNode(Node n) {
  if (n instanceof ObjectNode) {
    ObjectNode on = cast n;
    O o = on.obj;
    
    if (o instanceof Collection)
      n.add(ListNode(asList((Collection) o)));
  }

sclass ListNode > CTNode {
  L list;
  
  *() {}
  *(L *list) {}
  
  S toString2() { ret sfu(list); }
  
  public bool equals(O o) { ret stdEq(this, o, 'list); }
  public int hashCode() { ret stdHash(this, 'list); }
}