#if OCAML >= 402 || defined WITH_BYTES
module Bytes = Bytes
#else
module Bytes = struct

include String

let empty = ""
let of_string = copy
let to_string = copy

let sub_string = sub
let blit_string = blit

let unsafe_to_string : t -> string = fun s -> s
let unsafe_of_string : string -> t = fun s -> s

end
#endif