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 :
    '->
    ('-> string -> int -> int -> int) ->
    ('-> char) -> string -> Big_int.big_int
end