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
end