let close_out oz =
  dispose_out oz ;
  Pervasives.close_out oz.out_chan