let to_channel xs oc =
  Stream.iter xs ~f:(fun l ->
    Out_channel.output_string oc (l : item :> string);
    Out_channel.newline oc
  )