(* Ecriture en hexadécimal d'un entier 24 bits. *) let hexa24 = Printf.sprintf "0x%06X" (* Ecriture en hexadécimal d'un entier 32 bits. *) let hexa32 = Printf.sprintf "0x%08X"