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