eequalityRelation :: Note -> Note
eequalityRelation e = m e <> "-" <> equalityRelation
eequalityRelation :: Note -> Note
eequalityRelation e = m e <> "-" <> equalityRelation
eequalityRelation e = m e <> "-" <> equalityRelation