* Nick Cox Statalist Digest 895
program def tolower
	version 5.0
	local varlist "opt ex"
	parse "`*'"
	parse "`varlist'", parse(" ")
	while "`1'" != "" {
		local newname = lower("`1'")
		rename `1' `newname'
		mac shift
	}
end