Evaluated proc dprocbin args {set procs ""; set all [list]; foreach item $args { foreach name [depends $item] {lappend all $name} }; set all [lsort -unique [flatten $all]]; set out ""; foreach name $all {append out [inspect $name]\n\n}; set out [lregsub $out \n { }]; set ah [textbin $out]; . [^B]the following dependencies were uploaded:[^B] [flatten $all]\n$ah }