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