tree-dynamic.tcl