let close_out_noerr c =
  try close_out c
  with _ -> ()