let write chanout v =
      let fmt = Format.formatter_of_out_channel chanout in
      Format.pp_open_box fmt 0;
      xprint_schema fmt v;
      Format.pp_close_box fmt ();
      Format.pp_print_flush fmt ()