Evaluated proc goodshows {} { m $::goodshows {x { . [apad [chomp $x] [llongest [column [map $::goodshows {x {list [chomp $x] [last $x]}}] 0]]] [^C]8[rating [last $x]]}} \n }