let rss_items_of_log s =
  let entries = analyze_log s in
  let f (date, l) =
    List.map
      (fun (author, comments) ->
        Rss.item
          ~pubdate: (Rss.float_to_date date)
          ~title: author
          ~comments: (String.concat "\n" comments)
          ()
      )
      l
  in
  List.flatten (List.map f entries)