(d-InitialKey)
;;(let ((key "c"))
	;;(set! key (d-GetUserInput "Joe's Template" "Give key" key))
	;;(if key
		;;(d-InitialKey key)))
(d-InitialTimeSig)
;;Move to third/last staff
(d-MoveToStaffDown)
(d-MoveToStaffDown)
;;AddMirrorStaffs for EbSax ++++++++++
(d-AddMirrorVoice 'EbSaxMusic)
;;label the staff in denemo
(d-StaffProperties (string-append "denemo_name=" "EbSaxMusic"))
 (let ((tag "TransposeStaffPrint"))
(d-DirectivePut-staff-postfix tag "\\transpose ees c ")
(d-DirectivePut-staff-display tag "Print transposed: ees c ")
(d-DirectivePut-staff-override tag 4)
(d-SetSaved #f))
;;add ShortInstrumentName
(let ((tag "ShortInstrumentName"))
(d-DirectivePut-staff-prefix tag " shortInstrumentName = \"Sax\"")
(d-DirectivePut-staff-display tag "Sax")
(d-DirectivePut-staff-override tag 22)
(d-SetSaved #f))
;;Add InstrumentName
(let ((tag "InstrumentName"))
(d-DirectivePut-staff-prefix tag " instrumentName = \"EbSax\"")
(d-DirectivePut-staff-display tag "EbSax")
(d-DirectivePut-staff-override tag 22)
(d-SetSaved #f))
;; add Staff for Notes below music
(d-AddMirrorStaff)
(d-StaffProperties (string-append "denemo_name=" "EbSaxChords"))
(d-ChordStaff)
;(d-TransposeStaffPrint)
(let ((tag "TransposeStaffPrint"))
(d-DirectivePut-staff-postfix tag "\\transpose ees c ")
(d-DirectivePut-staff-display tag "Print transposed:  ees c ")
(d-DirectivePut-staff-override tag 4)
(d-SetSaved #f))
;; end of Mirror staffs for EbSax
;;AddMirrorStaffs for Clarinet   ++++++++++
(d-AddMirrorVoice 'ClarinetMusic)
(d-StaffProperties (string-append "denemo_name=" "ClarinetMusic"))
 (let ((tag "TransposeStaffPrint"))
(d-DirectivePut-staff-postfix tag "\\transpose c d ")
(d-DirectivePut-staff-display tag "Print transposed: c d ")
(d-DirectivePut-staff-override tag 4)
(d-SetSaved #f))
(let ((tag "ShortInstrumentName"))
(d-DirectivePut-staff-prefix tag " shortInstrumentName = \"Clt\"")
(d-DirectivePut-staff-display tag "Clt")
(d-DirectivePut-staff-override tag 22)
(d-SetSaved #f))
(let ((tag "InstrumentName"))
(d-DirectivePut-staff-prefix tag " instrumentName = \"Clarinet\"")
(d-DirectivePut-staff-display tag "Clarinet")
(d-DirectivePut-staff-override tag 22)
(d-SetSaved #f))
(d-AddMirrorStaff)
(d-StaffProperties (string-append "denemo_name=" "ClarinetChords"))
;(d-TransposeStaffPrint)
(let ((tag "TransposeStaffPrint"))
(d-DirectivePut-staff-postfix tag "\\transpose c d ")
(d-DirectivePut-staff-display tag "Print transposed:  c d ")
(d-DirectivePut-staff-override tag 4)
(d-SetSaved #f))
(d-ChordStaff)
(d-MovementTitle)
(d-SaveAs)