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