adam@0: fun main () =
adam@15:     doc <- Feed.fetch "http://feeds.feedburner.com/marginalrevolution/feed";
adam@8: 
adam@1:     Feed.app (Feed.children
adam@8:                   (Feed.tagA "item" ())
adam@8:                   (Feed.tagC "link", Feed.tagC "title", Feed.tagC "content:encoded"))
adam@8:              (fn ((), (link, title, content)) =>
adam@15:                  error <xml/>;
adam@8:                  debug ("URL: " ^ link);
adam@8:                  debug ("Title: " ^ title);
adam@8:                  debug ("Content: " ^ content))
adam@8:              doc;
adam@0:     return <xml>
adam@1:       See stdout.
adam@0:     </xml>