let set_substr buf off str =
      (if
         (off < 0) ||
           (off > ((Bigarray.Array1.dim buf) - (String.length str)))
       then raise (Invalid_argument "index out of bounds")
       else ();
       unsafe_set_substr buf off str)