testCPDLoader = do
  db <- loadChordProgressionDatabase "res/progressions.txt"
  putStrLn . show $ db
testCPDLoader = do
  db <- loadChordProgressionDatabase "res/progressions.txt"
  putStrLn . show $ db
testCPDLoader = do
  db <- loadChordProgressionDatabase "res/progressions.txt"
  putStrLn . show $ db