sig
  external ( & ) : ('-> 'b) -> '-> '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