Initial data commit

Task/Web-scraping/8th/web-scraping.8th

@@ -0,0 +1,14 @@
+\ Web-scrape sample: get UTC time from the US Naval Observatory:
+: read-url \ -- s
+ "http://tycho.usno.navy.mil/cgi-bin/timer.pl" net:get
+ not if "Could not connect" throw then
+ >s ;
+
+: get-time
+  read-url
+  /<BR>.*?(\d{2}:\d{2}:\d{2})\sUTC/
+  tuck r:match if
+    1 r:@ . cr
+  then ;
+
+get-time bye