tree_print tree { indent "0" }What it does:
prints a treeDefined in: /web/philip/tcl/ad-trees.tcl
Source code:
set result "" for {set i 0} {$i<$indent} {incr i} { append result " " } append result [head $tree]\n foreach t [tail $tree] { append result [print_tree $t [expr $indent+2]] } return $result