# version 0.0.1
::tcl::tm::path add .
package require treeselect

set tree [::treeselect::url-to-tree https://news.ycombinator.com/news]

set nodes [$tree nodes]

set titles [::treeselect::get $tree [
    ::treeselect::query $tree "td.title a PCDATA" $nodes] data]
set scores [::treeselect::get $tree [
    ::treeselect::query $tree ".score PCDATA" $nodes] data]
set links [lmap x [::treeselect::get $tree [
    ::treeselect::query $tree "td.title a" $nodes] data] {
    dict get [::treeselect::parse-attributes $x] href
}]

set stories {}
foreach  title $titles score $scores link $links {
    if {$score ne {}} {
        lappend stories $title $score $link
    }
}

foreach {title score link} $stories {
    puts "($score) $title - $link"
}