\set shapeNoteStyles = #'#(faThin sol laThin faThin sol laThin miThin)
southernHarmonyHeadsMinor =
\set shapeNoteStyles = #'#(laThin miThin faThin sol laThin faThin sol)
\set shapeNoteStyles = #'#(faThin sol laThin faThin sol laThin miThin)
southernHarmonyHeadsMinor =
\set shapeNoteStyles = #'#(laThin miThin faThin sol laThin faThin sol)