This library script is an example for scanning web pages. It scans a list of sites and counts the occurances of a string.
>> system/options/quiet: true >> do %countweb.r 47 http://www.rebol.com 15 http://www.sassenrath.com 0 http://www.amiga.org 0 http://www.cnn.comCounted the times the string REBOL occured in the listed site's home pages.
Change the string to look for in the string: variable
Change the sites to scan in the sites: block
What other language do you know that can read in a web page with read http://sitename.com
This example show how easy it can be to scan through a page of text with the line
while [page: find/tail page string] [count: count + 1]
That same line shows off REBOL assignment, or set-word in REBOL speak.