(with-open-file (stream #p"/dev/brain" :direction :io :element-type '(caffeine) (probe-file resolve))