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 ()