sig external ( & ) : ('a -> 'b) -> 'a -> 'b = "%apply" val ( << ) : bytes -> int -> char -> unit val ( <<! ) : bytes -> int -> char -> unit val range_check : bytes -> int -> int -> unit val ( >@! ) : 'a array -> int -> 'a end