let
of_string str =
of_string_bigstring
"of_string"
parse
" "
String
.length
String
.sub str