/* generate list of current global variables */
_varlist(separator = `\n`)
{
        local s = "";

        /* newline list of global vars */
        s = objectlist(12, 0, 1);

        /* remove "ans" variable */
        s = strrep(s, `ans\n`, "");

        if (separator != `\n`)
        {
                s = strrep(s, `\n`, separator);
        }

        return(s);
}