val restart : ('a -> 'b) -> 'a -> 'b
val restart_tmo : (float -> 'a) -> float -> 'a
val slice_time_ms : (int -> 'a option) -> float -> 'a option
val mem_sorted_array : 'a -> 'a array -> bool
val tbuffer_length :
[< `Bytes of bytes
| `Memory of ('a, 'b, 'c) Stdlib.Bigarray.Array1.t
| `String of bytes ] ->
int
val tstring_length :
[< `Bytes of bytes
| `Memory of ('a, 'b, 'c) Stdlib.Bigarray.Array1.t
| `String of string ] ->
int