Evaluated proc goodshows {} {join [map $::goodshows {x {. [lrange $x 0 end-1]\t\t\t\t [rating [last $x]]}} ] \n}