Evaluated proc rr_ {} {set name [rpick [info proc]]; if { [third [inspect $name]] == "" } { catch {eval $name} out; . [^B][^_]$name:\n$out } }