tcl - 特定の xml ノード値を Tcl に出力する

Question

ノード値を出力しようとしていますが、何も出力されません。コードは次のとおりです。

package require dom;
set XML "
    <top number='1'>
        <a>Name</a>
        <b>589</b>
        <email>name@example.com</email>
        <website/>
        <parts>
            <widget sku='XYZ123' />
            <widget sku='ABC789' />
        </parts>
    </top>
"
set doc [::dom::parse $XML]
set root [$doc cget -documentElement]
set node [$root cget -firstChild]
set node [$root cget -nextSibling]
set node [$root cget -firstChild]
puts "[$node cget -nodeValue]"