tree_print

tree_print   tree   { indent "0" }

prints a tree

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