let of_string str =
  of_string_bstr "Sexp.of_string" parse " " String.length String.sub str