(make-music
  'SequentialMusic
  'elements
  (list (make-music
          'SequentialMusic
          'elements
          (list (make-music
                  'NoteEvent
                  'tweaks
                  (list (list 'input-annotation
                              (list (quote input-file-name) "document.ly")
                              (cons (quote context-id) "tmpBD7bwR")
                              (cons 'location
                                    #<location /tmp/frescobaldi-qBazyK/tmpBD7bwR/document.ly:6:3>)
                              (cons (quote type) (quote critical-remark))
                              (cons (quote message) "Test")))
                  'duration
                  (ly:make-duration 2)
                  'pitch
                  (ly:make-pitch 0 0))
                (make-music
                  'NoteEvent
                  'pitch
                  (ly:make-pitch 0 1)
                  'duration
                  (ly:make-duration 2))))))

(make-music
  'SequentialMusic
  'elements
  (list (make-music
          'SequentialMusic
          'elements
          (list (make-music
                  'ContextSpeccedMusic
                  'context-type
                  'Bottom
                  'element
                  (make-music
                    'OverrideProperty
                    'once
                    #t
                    'pop-first
                    #t
                    'grob-value
                    (list (list (quote input-file-name) "document.ly")
                          (cons (quote context-id) "tmpBD7bwR")
                          (cons 'location
                                #<location /tmp/frescobaldi-qBazyK/tmpBD7bwR/document.ly:6:3>)
                          (cons (quote type) (quote critical-remark))
                          (cons (quote message) "Test"))
                    'grob-property-path
                    (list (quote input-annotation))
                    'symbol
                    'NoteHead))
                (make-music
                  'NoteEvent
                  'duration
                  (ly:make-duration 2)
                  'pitch
                  (ly:make-pitch 0 0))))
        (make-music
          'NoteEvent
          'pitch
          (ly:make-pitch 0 1)
          'duration
          (ly:make-duration 2))))