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