!7

cmodule TrailsTree {
  S solverModule;
  transient O root;
  transient JTree tree;
  transient SingleComponentPanel scp;

  visual scp = singleComponentPanel(makeTree());
  
  JTree makeTree() {
    ret tree = jDynamicTree(root, getChildren(root));
  }
  
  L getChildren(O trail) {
    if (trail cast Pair) trail = pairB(pair);
    if (trail cast Map)
      ret mapToPairs(trail);
    null;
  }
}