_057_caller_graphs.tcl 99 Bytes
proc inFileB args {
    array set info [info frame 0]; puts -nonewline ->$info(proc)
    inFileA
}