Sophie
let () = let channel = Rss.channel_of_file Sys.argv.(1) in Rss.print_channel Format.std_formatter channel