 
 : link. ( tag -- )
     [ deep-children>string ] [ attrs>> "href" of ] bi
-    "http://en.wikipedia.org" prepend >url H{
+    wikipedia-url H{
         { font-name "monospace" }
         { foreground COLOR: blue }
     } [ write-object ] with-style ;

    (historical-events) "Deaths" header. fourth items. ;

: article. ( name -- )
    "http://en.wikipedia.org/wiki/%s" sprintf
    http-get* parse-html "content" find-by-id-between
    [ html-text. ] with-string-writer string-lines
    [ [ blank? ] trim ] map harvest [
        R/ &lt;/ "<" re-replace

    children-tags [ item. ] each nl ;

: historical-url ( timestamp -- url )
    [ month-name ] [ day>> ] bi "%s_%s" sprintf wikipedia-url ;

: (historical-events) ( timestamp -- seq )
    historical-url http-get* string>xml "ul" deep-tags-named ;
