*! 1.0.0 NJC 3 February 1999
program define _gtail
        version 6.0

        gettoken type 0 : 0
        gettoken g    0 : 0
        gettoken eqs  0 : 0

        syntax varlist(max=1 string) [if] [in], [Punct(str) Trim ]
        marksample touse, strok
        local type "str1" /* ignores type passed from -egen- */
        if `"`punct'"' == `""' { local punct " " }
        local plen = length(`"`punct'"')

        quietly {
                tempvar index
                gen `type' `g' = ""
                gen byte `index' = `touse' * index(`varlist',`"`punct'"')
                replace `g' = substr(`varlist', `index' + `plen', .) if `index'
                if "`trim'" != "" { replace `g' = trim(`g') }
        }
end