Avec Bigloo :

(define p (open-input-file "le-flux-data"))

(integer->string/padding (read-byte p) 8 2)

;; (read-byte p) lit un octet et retourne son code ascii
;; (integer->string/padding...