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