loadChordProgressionDatabase :: String -> IO ChordProgressionDatabase
loadChordProgressionDatabase fileName =
  do
    wholeFile <- readFile fileName 
    return $ cpdDbFromStrings (lines wholeFile)
loadChordProgressionDatabase :: String -> IO ChordProgressionDatabase
loadChordProgressionDatabase fileName =
  do
    wholeFile <- readFile fileName 
    return $ cpdDbFromStrings (lines wholeFile)
loadChordProgressionDatabase fileName =
  do
    wholeFile <- readFile fileName 
    return $ cpdDbFromStrings (lines wholeFile)