% Generated by lilypond-book
% Options: [quote,raggedright]

\paper {
    linewidth = 160 \mm - 2.0 * 9.0 \mm

    
    indent = 0.0\mm
    raggedright = ##t
}
#(define (mc-squared grob orig current)
  (let ((interfaces (ly:grob-property grob 'interfaces))
	(pos (ly:grob-property grob 'staff-position)))
    (if (and (memq 'note-head-interface interfaces)
	     (memq pos '(-2 -3 -5)))
	(begin
	  (ly:grob-set-property! grob 'print-function brew-new-markup-stencil)
	  (ly:grob-set-property! grob 'font-family 'roman)
	  (ly:grob-set-property!
	   grob 'text
	   (make-raise-markup
	    -0.5
	    (case pos
	      ((-5) (make-simple-markup "m"))
	      ((-3) (make-simple-markup "c "))
	      ((-2) (make-smaller-markup (make-bold-markup "2")))
	      (else (make-simple-markup "bla")))))))))

\score {
  \notes \context Voice \relative  c' {
    \stemUp
    \set autoBeaming = ##f
    \time 2/4
    <d f g>4
    \once \override NoteHead #'print-function = #Note_head::brew_ez_stencil
    <d f g>
    \once \override NoteHead #'style = #'cross
    <d f g>
    \applyoutput #mc-squared
    <d f g>
    <<
      { d8[ es-( fis^^ g] fis2-) }
      \repeat unfold 5 { \applyoutput #mc-squared s8 }
    >>
  }
}
