diff --git a/string-quartet.ly b/string-quartet.ly
index 940cce0..3a9ac53 100644
--- a/string-quartet.ly
+++ b/string-quartet.ly
@@ -1,3 +1,5 @@
+\version "2.24.3"
+\language "english"
 
 
 makePiece = #(define-scheme-function
@@ -24,11 +26,14 @@ makeHdr = #(define-scheme-function
             )
             
 makeScore = #(define-scheme-function
-              (instrument music)
-              (string? ly:music?)
+              (instrument midi music)
+              (string? string? ly:music?)
               #{
                 \score {
-                  \new Staff \with { instrumentName = $instrument }
+                  \new Staff \with { 
+                    instrumentName = $instrument 
+                    midiInstrument = $midi
+                  }
                   $music
                   \layout { 
                     \context {
@@ -36,6 +41,8 @@ makeScore = #(define-scheme-function
                         \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
                     }
                   }
+                  \midi {
+                  }
                 }          
               #}
               )	
@@ -43,25 +50,25 @@ makeScore = #(define-scheme-function
 makeScoreVI = #(define-scheme-function
                 (music)
                 (ly:music?)
-                (makeScore "Violin I" music)
+                (makeScore "Violin I" "violin" music)
                 )
 
 makeScoreVII = #(define-scheme-function
                  (music)
                  (ly:music?)
-                 (makeScore "Violin II" music)
+                 (makeScore "Violin II" "violin" music)
                  )
 
 makeScoreVa = #(define-scheme-function
                 (music)
                 (ly:music?)
-                (makeScore "Viola" #{ { \clef alto $music } #})
+                (makeScore "Viola" "viola" #{ { \clef alto $music } #})
                 )
 
 makeScoreCl = #(define-scheme-function
                 (music)
                 (ly:music?)
-                (makeScore "Cello" #{ { \clef bass $music } #})
+                (makeScore "Cello" "cello" #{ { \clef bass $music } #})
                 )
 
 makeScoreFull = #(define-scheme-function
@@ -70,10 +77,22 @@ makeScoreFull = #(define-scheme-function
                   #{
                     \score {
                       << 
-                        \new Staff \with { instrumentName = "Violin I" } $vI
-                        \new Staff \with { instrumentName = "Violin II" } $vII
-                        \new Staff \with { instrumentName = "Viola" } { \clef alto $va }
-                        \new Staff \with { instrumentName = "Cello" } { \clef bass $va }
+                        \new Staff \with { 
+                          instrumentName = "Violin I" 
+                          midiInstrument = "violin"
+                        } $vI
+                        \new Staff \with { 
+                          instrumentName = "Violin II" 
+                          midiInstrument = "violin"
+                        } $vII
+                        \new Staff \with { 
+                          instrumentName = "Viola" 
+                          midiInstrument = "viola"
+                        } { \clef alto $va }
+                        \new Staff \with { 
+                          instrumentName = "Cello" 
+                          midiInstrument = "cello"
+                        } { \clef bass $cl }
                       >>
                       \layout { 
                         \context {
@@ -81,6 +100,8 @@ makeScoreFull = #(define-scheme-function
                             \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
                         }
                       }
+                      \midi {
+                      }
                     }          
                   #}
                   )