view-branches.tcl