Evaluated tcl proc inspect2 args {set proc [lindex $args 0]; set procs [info commands [escape_glob $proc]*]; if {[llength [info commands [escape_glob $proc]]] == 1} {. "[src $proc]"} elseif {[llength $procs] == 0} {if [llength [set handler [. no]]] {src [lindex $handler 0]} else {. "fuck u"}} elseif {[llength $procs] == 1} {src [first $procs]} else {. "\"$proc\" [conjoin [lsort $procs] or]"}}