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