;;; -*- logo -*-

to closeall
foreach allopen [close ?]
end

bury "closeall