adam@0: fun main () =
adam@1:     Feed.app (Feed.children
adam@3:                   (Feed.tagA "item" {1 = "rdf:about"})
adam@3:                   (Feed.tagC "title", Feed.tagC "content:encoded"))
adam@3:              (fn (item, props) =>
adam@3:                  debug ("URL: " ^ item.1);
adam@3:                  debug ("Title: " ^ props.1);
adam@3:                  debug ("Content: " ^ props.2))
adam@1:              "http://feeds.feedburner.com/marginalrevolution/hCQh";
adam@0:     return <xml>
adam@1:       See stdout.
adam@0:     </xml>