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

bury "pllist
