REBOL [
    Title: "snag images"
]

;; ** change the site **
site: http://www.rebol.com

tags: copy []
page: read site

; pull out all the html tags
parse page [
    some [to "<" copy tag thru ">" (append tags tag)]
    to end
]

; look for tags with "img", pull out the filename,
;   maybe append site to get full url, load image
foreach tag tags [
    if find tag "img" [
        attempt [
            start: find/tail tag {src="}
            end: find start {"}
            file: copy/part start end
            unless find file "http" [
                unless equal? first file #"/" [insert head file "/"]
            ]
            url: either find file "http" [file] [join site file]
            url: to url! url       
            img: load url
            print [url "is" img/size]
        ]
    ]
]