let rss_of_file f =
  let ch =
    match f with
      "-" -> Rss.channel_of_channel stdin
    | _ -> Rss.channel_of_file f
  in
  List.fold_left
    (fun acc f -> f acc)
    ch
    !filters