CL-USER> (alexandria:with-input-from-file (s #p"/tmp/foo" :element-type '(unsigned-byte 8))
           (let ((buffer (fast-io:make-input-buffer :stream s)))
             (loop repeat 16 collect (fast-io:read16-be buffer))))
(27498 25702 27507 25692 29547 25706 26216 2652 12851 13365 13108 13660 23603
 13365 13108 2610)