diff --git a/string-quartet.ly b/string-quartet.ly
deleted file mode 100644
index 3a9ac53..0000000
--- a/string-quartet.ly
+++ /dev/null
@@ -1,107 +0,0 @@
-\version "2.24.3"
-\language "english"
-
-
-makePiece = #(define-scheme-function
-              (p)
-              (string?)
-              #{ \markup { \bold \fontsize #+1 $p } #}
-              )
-
-makeScriptum = #(define-scheme-function
-                 (s)
-                 (string?)
-                 #{ \markup { \fontsize #-1 \normal-text $s } #}
-                 )
-
-makeHdr = #(define-scheme-function 
-            (thePiece theScriptum)
-            (markup? markup?)
-            #{
-              \header {
-                subsubtitle = $theScriptum
-                piece = $thePiece
-              }
-            #}
-            )
-            
-makeScore = #(define-scheme-function
-              (instrument midi music)
-              (string? string? ly:music?)
-              #{
-                \score {
-                  \new Staff \with { 
-                    instrumentName = $instrument 
-                    midiInstrument = $midi
-                  }
-                  $music
-                  \layout { 
-                    \context {
-                      \Score
-                        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
-                    }
-                  }
-                  \midi {
-                  }
-                }          
-              #}
-              )	
-
-makeScoreVI = #(define-scheme-function
-                (music)
-                (ly:music?)
-                (makeScore "Violin I" "violin" music)
-                )
-
-makeScoreVII = #(define-scheme-function
-                 (music)
-                 (ly:music?)
-                 (makeScore "Violin II" "violin" music)
-                 )
-
-makeScoreVa = #(define-scheme-function
-                (music)
-                (ly:music?)
-                (makeScore "Viola" "viola" #{ { \clef alto $music } #})
-                )
-
-makeScoreCl = #(define-scheme-function
-                (music)
-                (ly:music?)
-                (makeScore "Cello" "cello" #{ { \clef bass $music } #})
-                )
-
-makeScoreFull = #(define-scheme-function
-                  (vI vII va cl)
-                  (ly:music? ly:music? ly:music? ly:music?)
-                  #{
-                    \score {
-                      << 
-                        \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 {
-                          \Score
-                            \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
-                        }
-                      }
-                      \midi {
-                      }
-                    }          
-                  #}
-                  )