onetom's posterous

parse load/markup url http://tomka.hu/~lac/zax/oldies/ [some [
  set t tag! 
  (parse t [ thru {a href="} copy h to {"}
    (unless find h charset "?/" [print h append files h]) ]
  ) | string!]]
foreach f files [print f write/binary to-file f read/binary rejoin [url f]]

This is too complicated, because of the double parsing.