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