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 [list]; foreach name $all {lappend out [safesrc $name]\n\n}; foreach name $args {lappend out [safesrc $name]\n\n}; set ah [paste [join $out "\n"]]; . [^B]the following dependencies were uploaded:[^B] [flatten $all]\n$ah }