-- gives the name of each category followed by a colon followed by number of
-- progressions in that category. each entry separated by newline.
summary :: [(String, [TimedChordProgression])] -> String
summary ([]) = ""
summary :: [(String, [TimedChordProgression])] -> String
summary ([]) = ""
summary ([]) = ""