+<<
+ \new Staff {
+ \set Staff.instrumentName = "quoteMe"
+ \quoteMe
+ }
+ \new Staff {
+ \set Staff.instrumentName = "orig"
+ \original
+ }
+ \new Staff \relative c'' <<
+ \set Staff.instrumentName = "orig+quote"
+ \set Staff.quotedEventTypes = #'(note-event articulation-event)
+ \new Voice {\voiceOne
+ \original }
+ \new Voice {\voiceTwo
+ s4
+ \set fontSize = #-4
+ \override Stem.length-fraction = #(magstep -4)
+ \quoteDuring #"quoteMe" { \skip 2. }