\version "2.21.0"

\header {
  texidoc = "Chords containing unisons or seconds:
    Center articulation marks, dynamics, slurs, etc., on the notehead that
    is on the ``correct'' side of the stem."
}

{
  e''4-^ <e'' e''>-^\p <c'' e'' e''>-^\f <a' d'' e''>-^
  <f'' f''>(\< <e'' e''>)\! <f'' f''>\> ~ <f'' f''>\!
  f'-^ <f' f'>-^\p <f' f' a'>-^\f <f' g' c''>-^
  <e' e'>(\< <f' f'>)\! <e' e'>\> ~ <e' e'>\!
}
