console show
   
 package require struct
 package require htmlparse
 package require http
   
 proc parse {} {
   
 ::struct::tree t
   
 set url "http://wiki.tcl.tk/1683"
 set http  [::http::geturl $url]
 set html  [::http::data $http]
   
 htmlparse::2tree $html t
 htmlparse::removeVisualFluff t
 htmlparse::removeFormDefs t
   
 set base [walk {1 15 0}]
     puts "data: [t get $base data]"
     puts "type(tag): [t get $base type]\n"
   
     set bulletIx   [walkf $base {0}]
   
 while {$bulletIx != {}} {
       set link  [t get [walkf $bulletIx {0}]  data]
       #set title [t get [walkf $bulletIx {0 0}]  data]
       catch {t get [walkf $bulletIx {0 0}]  data} title
       puts "$link: $title"
       update
       set bulletIx [t next $bulletIx]
 }
   
    t destroy
    return
 }
   
 proc walkf {n p} {
     foreach idx $p {
         if {$n == ""} {break}
         set n [lindex [t children $n] $idx]
     }
     return $n
 }
   
 proc walk {p} {
     return [walkf root $p]
 }
   
 parse