sig
  val open_in_gen :
    Pervasives.open_flag list -> int -> string -> Pervasives.in_channel
  val open_out_gen :
    Pervasives.open_flag list -> int -> string -> Pervasives.out_channel
end