;;; -*- logo -*-

to file? :filename
ignore error
catch "error [openread :filename close :filename]
output emptyp error
end

bury "file?