proc inFileB args {

    array set info [info frame 0]; puts -nonewline ->$info(proc)

    inFileA

}