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