value initialise : unit -> unit
  and écrire_bit : out_channel -> int -> unit
  and lire_bit : in_channel -> int
  and finir : out_channel -> unit;;