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