module Buffer:sig..end
   This module implements buffers that automatically expand
   as necessary.  It provides accumulative concatenation of strings
   in quasi-linear time (instead of quadratic time when strings are
   concatenated pairwise).
type 
val create : int -> tcreate n returns a fresh buffer, initially empty.
   The n parameter is the initial size of the internal byte sequence
   that holds the buffer contents. That byte sequence is automatically
   reallocated when more than n characters are stored in the buffer,
   but shrinks back to n characters when reset is called.
   For best performance, n should be of the same order of magnitude
   as the number of characters that are expected to be stored in
   the buffer (for instance, 80 for a buffer that holds one output
   line).  Nothing bad will happen if the buffer grows beyond that
   limit, however. In doubt, take n = 16 for instance.
   If n is not between 1 and Sys.max_string_length, it will
   be clipped to that interval.val contents : t -> stringval to_bytes : t -> bytesval sub : t -> int -> int -> stringBuffer.sub b off len returns a copy of len bytes from the
    current contents of the buffer b, starting at offset off.
    Raise Invalid_argument if srcoff and len do not designate a valid
    range of b.
val blit : t -> int -> bytes -> int -> int -> unitBuffer.blit src srcoff dst dstoff len copies len characters from
   the current contents of the buffer src, starting at offset srcoff
   to dst, starting at character dstoff.
   Raise Invalid_argument if srcoff and len do not designate a valid
   range of src, or if dstoff and len do not designate a valid
   range of dst.
Since 3.11.2
val nth : t -> int -> charInvalid_argument if
    index out of boundsval length : t -> intval clear : t -> unitval reset : t -> unitn that was allocated by Buffer.create n.
   For long-lived buffers that may have grown a lot, reset allows
   faster reclamation of the space used by the buffer.val add_char : t -> char -> unitadd_char b c appends the character c at the end of buffer b.val add_string : t -> string -> unitadd_string b s appends the string s at the end of buffer b.val add_bytes : t -> bytes -> unitadd_bytes b s appends the byte sequence s at the end of buffer b.val add_substring : t -> string -> int -> int -> unitadd_substring b s ofs len takes len characters from offset
   ofs in string s and appends them at the end of buffer b.val add_subbytes : t -> bytes -> int -> int -> unitadd_subbytes b s ofs len takes len characters from offset
    ofs in byte sequence s and appends them at the end of buffer b.val add_substitute : t -> (string -> string) -> string -> unitadd_substitute b f s appends the string pattern s at the end
   of buffer b with substitution.
   The substitution process looks for variables into
   the pattern and substitutes each variable name by its value, as
   obtained by applying the mapping f to the variable name. Inside the
   string pattern, a variable name immediately follows a non-escaped
   $ character and is one of the following:_ characters,$ character is a $ that immediately follows a backslash
   character; it then stands for a plain $.
   Raise Not_found if the closing character of a parenthesized variable
   cannot be found.val add_buffer : t -> t -> unitadd_buffer b1 b2 appends the current contents of buffer b2
   at the end of buffer b1.  b2 is not modified.val add_channel : t -> in_channel -> int -> unitadd_channel b ic n reads at most n characters from the
   input channel ic and stores them at the end of buffer b.
   Raise End_of_file if the channel contains fewer than n
   characters. In this case, the characters are still added to
   the buffer, so as to avoid loss of data.val output_buffer : out_channel -> t -> unitoutput_buffer oc b writes the current contents of buffer b
   on the output channel oc.