parseChordTemplate :: String 
    -> Either ParseError (ChordPattern NotePattern [IntervalPattern])
parseChordTemplate = parse pChord "(chord def)"
parseChordTemplate :: String 
    -> Either ParseError (ChordPattern NotePattern [IntervalPattern])
parseChordTemplate = parse pChord "(chord def)"
parseChordTemplate = parse pChord "(chord def)"