(define (InsertPitch pitch)
(eval-string (string-append "(d-" (number->string (d-GetPrevailingDuration)) ")"))
(d-StagedDelete)
(d-CursorToNote pitch)
(d-AddNoteToChord)
(d-MoveCursorRight))

(if (equal? "Treble" (d-GetPrevailingClef))
(InsertPitch "a''")
(InsertPitch "a,"))