let to_native_string x =       let buf = String.make (size x) 'B' in       begin match write_to_native_string x ~buf ~index:0 with       | `Ok _ -> ()       | `Error e ->         dbg "buf: %S siz: %d x: %d" buf (size x) x;         assert false       end;       buf