--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/bytes.ml	Thu Oct 05 08:04:15 2017 +0100
@@ -0,0 +1,20 @@
+(* bytes.ml -- simulate Bytes module for OCaml versions <= 4.01 *)
+(* Copyright (c) 2017 J. M. Spivey *)
+
+let create n = String.create n
+
+let of_string s = s
+
+let get s i = String.get s i
+
+let set s i v = String.set s i v
+
+let unsafe_set s i v = String.unsafe_set s i v
+
+let to_string s = s
+
+let sub_string s i j = String.sub s i j
+
+let length s = String.length s
+
+let fill s i n c = String.fill s i n c