(with-open-file (stream path :direction :input)
(let* ((length (read stream))
(et (make-array length :element-type 'fixnum)))
(with-open-file (stream path :direction :input)
(let* ((length (read stream))
(et (make-array length :element-type 'fixnum)))