let to_string t v = let len = t.size v in let buf = Bigstring.create len in let pos = t.write buf ~pos:0 v in assert (pos = Bigstring.length buf); Bigstring.to_string buf