let of_bstr bstr = of_string_bstr "Sexp.of_bstr" parse_bstr bstr_ws_buf Array1.dim get_bstr_sub_str bstr