to namelist :names
if array? :names [(throw "error 4 :names)]
if wordp :names [output list [] (list :names)]
output list [] :names
end

bury "namelist
