cat() does,
additionally printing the name of function in which it's been called ---
only when a global variable DEBUG exists and is
TRUE.
The global DEBUG has been a cheap precursor to the now standard
R's options(verbose= .) setting.prt.DEBUG(..., LEVEL = 1)cat(...) for
printing.