Evaluated proc goodshows {} {join [map $::goodshows {x {. [lrange $x 0 end-1][string repeat " " [+ 1 [- 25 [strlen $x]]]][rating [last $x]]}} ] \n}