A simple PL/Tcl function