let  parse_bigstring ?(parse_pos = Parse_pos.create ()) ?len str =     let pos = parse_pos.Parse_pos.buf_pos in     let len =       match len with       | Some len -> len       | None ->  Array1.dim str - pos     in     let max_pos = check_str_bounds "parse" ~pos ~len str in     let state =       {         parse_pos;         pstack =  [];         pbuf = Buffer.create 128;       }     in      parse_bigstring state str ~max_pos ~pos