sig
  val ar_seek_to_file : Pervasives.in_channel -> string -> Big_int.big_int
  val open_ar_file : string -> Pervasives.in_channel
  val tar_seek_to_file :
    'a ->
    ('a -> string -> int -> int -> int) ->
    ('a -> char) -> string -> Big_int.big_int
end