Evaluated proc depends {name {depth 7}} {set seed [depends_list $name]; set final $seed; for {set i 0} {$i < $depth} {incr i} {map $seed {x {lappend final [depends_list $x]}}; set seed [lsort -unique [flatten $final]]}; depends_check $seed}