Evaluated proc rr {} {set name [rpick [info procs]]; if { [llength [third [inspect $name]]] == 0 } { . [^B][^_]$name:\n[eval $name] } }