sig
  val seek_out : Pervasives.out_channel -> int64 -> unit
  val pos_out : Pervasives.out_channel -> int64
  val out_channel_length : Pervasives.out_channel -> int64
  val seek_in : Pervasives.in_channel -> int64 -> unit
  val pos_in : Pervasives.in_channel -> int64
  val in_channel_length : Pervasives.in_channel -> int64
end