REBOL [
    Title: "Web HTML Tag Extractor"
    File:  %websplit.r
    Date:  20-May-1999
    Purpose: "Separate the HTML tags from the body text of a document."
    Category: [web net text 3] 
]

tags: make block! 100
text: make string! 8000
html-code: [
    copy tag ["<" thru ">"] (append tags tag) | 
    copy txt to "<" (append text txt)
]
page: read http://www.rebol.com
parse page [to "<" some html-code]
foreach tag tags [print tag]
print text