sig
  val normalize : length_fun:('a -> int) -> 'a -> int -> int
  val slice :
    length_fun:('a -> int) ->
    sub_fun:('a -> pos:int -> len:int -> 'a) -> 'a -> int -> int -> 'a
  val get_pos_len_exn : ?pos:int -> ?len:int -> length:int -> int * int
  val get_pos_len :
    ?pos:int -> ?len:int -> length:int -> (int * int, string) Result.t
  val ounit_tests : unit -> OUnit.test
end