let dispose_out oz =
  if oz.out_pos > 0 then push_block oz ;
  Pervasives.output_string oz.out_chan bgzf_eof