lMarks :: (Real (Separation t), Real (Accentuation t), Articulated t) => t -> [Mark]
allMarks y = mempty
  <> getSeparationMarks (realToFrac $ y^.separation)
  <> getAccentMarks (realToFrac $ y^.accentuation)


allMarks :: (Real (Separation t), Real (Accentuation t), Articulated t) => t -> [Mark]
allMarks y = mempty
  <> getSeparationMarks (realToFrac $ y^.separation)
  <> getAccentMarks (realToFrac $ y^.accentuation)
allMarks y = mempty
  <> getSeparationMarks (realToFrac $ y^.separation)
  <> getAccentMarks (realToFrac $ y^.accentuation)