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