to closeall
foreach allopen [close ?]
end

bury "closeall
