view-ratings.tcl