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