(fn[rq rs](let[t(fn[x](str"http"x"://www.tagesschau.de/"))]
(str"<pre>"(apply str(map(fn[i]
(if(= :item(:tag i))(let[l(first(:content
(first(filter #(=(:tag %):link)(:content i)))))](str"<a href='"
l"'>"(if(.startsWith l(t"s"))(subs l 25)l)"</a>\n"))))
(:content(first(:content(clojure.xml/parse
(str(t"s")"xml/rss2")))))))"</pre>"))) |