diff --git a/Joseph-Haydn-String-Quartet-No-38.ly b/Joseph-Haydn-String-Quartet-No-38.ly
index 5aa03f0..e1c0804 100644
--- a/Joseph-Haydn-String-Quartet-No-38.ly
+++ b/Joseph-Haydn-String-Quartet-No-38.ly
@@ -6,8 +6,14 @@
 
 #(define sqCustomMoment (ly:make-moment 3/16))
 
+\paper {
+  left-margin = 7\mm
+  right-margin = 7\mm
+}
+
 \header {
   title = "String Quartet No. 38"
+  subtitle = "The Joke"
   composer = "Joseph Haydn"
   opus = "Op. 33, Nr. 2."
   copyright = \markup { \fontsize #-8 { "2026 - H.N.M. Dijkema - CC-BY-NC-SA-3.0 - Lilypond " #(lilypond-version) } }
@@ -139,12 +145,95 @@ scorePartIViolinII = \relative c' {
    ef8-. bf16( d) d8-. bf16( g') g8-. bf,16( f') f8-. bf,-.\p |
    bf8 r a r bf4 r | r2 r4 r8 af!16( g) | g8 r <c, ef> r <bf d> r 
    \bar ":..:"
+   
+   \partial 8 { r8 } |
+   bf'\p r a r af r r4 | g8 r f r ef r r4 | r8 \rep 3 c'-.\f r8 \rep 3 df_2-. |
+   r8 c16(\upbow ef) af8-. af-. af4( g) | f8-4 af,16\upbow( c) f8-. f-. f4( e) |
+   f8 c,16\upbow( f) af8-. f-. c4. c'8-4~ | c8 f4 ef!16_4\upbow( c) df4( d) | ef8 g,16(\upbow bf) ef8-. ef-. ef4( d8) bf\upbow
+   
+   \mark C
+   ef8-. g,-. g-. g-. r d'-. d-. d-. | ef4 r r8 fs,16\p( g) g8-. r | 
+   r8 g16( af) af8-. r r f!16( g) g8-. r | ef8 r f r g r r bf16\upbow( cf) | cf2.\sf r8 a16\downbow( bf) |
+   bf4. c16\upbow( df) df2~ | df8 bf16\downbow( cf) cf8-. ef32( d c d) ef2~ | ef8 c16\upbow( df) df8-. f32-3( e d e) f2~ |
+   f8 d16\downbow( e) e8-. r e-. r f-. r |
+   
+   \mark D
+   df4 r c8\p r g r | r c,16-1( f) f8-. r r c16(\cresc f) f8-.\! r |
+   r8 c16\upbow( ef) ef4. c16\downbow( ef) ef4~ | ef8 c16\upbow( ef) ef4. c16\downbow( ef) ef4 |
+   d4\mf( ef) d( ef) | d( ef f ef) | d(\< c b\!\f) r4 | r4 r8 d8\f ef-. af-. g-. b-. | c-. af-. g-. f-. r2 |
+   
+   \mark E
+   r8 ef8-.\p ef-. ef-. r b-. b-. b-. | c4 r r8 e8-. e-. r |
+   r8 f-. f-. r r d-. d-. r | d r d r d r r4 | 
+   r8 ef8-.\f ef-. ef-. r d-. d-. d-. | r8 ef-. ef-. ef-. r df-. df-. df-. | r c c c r d! d d | ef r d r ef4 r |
+   r2 r8 fs'16\p( f) f8-. r | r2 r8 a16( bf) bf8-. r | bf, r bf r bf r bf\mf bf16\downbow( bf') |
+   
+   \mark F
+   bf( c,) c( af') af( bf,) bf( g'-4) g( af,) af( f') f( g,) g-3( ef') | ef( f,) f( ef') ef( ef,) ef( gf) f2\p | 
+   g!2( af) | g( ef) | f4\mf( ef) f( ef) | f( g af g) | f r r8 e16\>\upbow( f\!) f4~ | 
+   f8 g16\downbow\>( af)\! af8-. g-. c4.-4( af8) | g8-.\cresc g-.-3\! g\turn af16( f) g8-. ef'-.-2 ef\turn f16( d) |
+   ef8-. g-._2^"I" g\turn ef16( f) g8-. \rep 3 <bf, bf'>-.\f | <bf, bf'>4 r r8 ef\upbow\p r f\upbow |
+   r f r f r ef r ef | r ef r ef d4 r4 |
+   
+   \mark G
+   f2\f( ef4) r | ef' r c8 r c r | c r ef r \rep 4 ef8-. |
+   ef-. ef-. d-. d-. ef4 r8_\markup { \italic "mezza voce" } ef,16\downbow( af) |
+   af8-. ef16( g) g8-. ef16( c') c8-. ef,16( bf') bf8-. r |
+   f8\p r d r ef4 r8 ef16( af,) | af8-. ef'16( g,) g8-. ef'16( c) c8-. ef16( bf) bf8-. r | 
+   c8-. r d-. r ef4 r8
+   
+   \bar ":|."
 }
 
 scorePartIViola = \relative c' {
   \partI
   % Muziek volgt hier.
+  \partial 8 { r8 } |
+  r8\mf \rep 3 g8-. r8 \rep 3 af8-. | \rep 2 { r \rep 3 g8-. } | r \rep 3 af-. r \rep 3 f-. | g r af r g4 r |
+  r2 r8 d''16\p( ef) ef8-. r | r2 r8 fs,16( g) g8-. r | f\mf r g r f r ef r | f4 af, bf r |
+  r8 \rep 3 g-. r \rep 3 af-. | \rep 2 { r \rep 3 g } | r \rep 3 af r \rep 3 f |
+  g r af r g4 r |
   
+  \mark A
+  ef'8-. g-. bf-. g16( ef) d2 | g2( ef) | d-4\p( a) | bf( g) | a4\mf( g) a( g) | a( bf c bf) | a r r2 |
+  r8 b16\upbow\>( c\!) c8-. bf-. ef4.( a,8-2) | bf4-2 r f'8-.\cresc f-.\! f-. f-. |
+  f8-. bf,-. bf-. bf-. bf-. \rep 3 <f' bf>-.\f | <f bf>4 r r8 bf8\p\upbow r8 a\upbow | 
+  r c r bf r g r g |
+  
+  \mark B
+  bf2\f r2 |
+     \once \set subdivideBeams = ##t 
+     \once \set beamMaximumSubdivision = #1/8 { \triN bf,16-4 bf bf \triN bf bf bf } 
+     \once \set subdivideBeams = ##t 
+     \once \set beamMaximumSubdivision = #1/8 { \triN f16 f f \triN f f f } 
+     f4 r8 bf'( |
+     g) r r4 \rep 4 d8-. | c8-. c-. ef-. ef-. d4 r | g8_\markup { \italic "mezza voce" } r f r ef r d r |
+     ef\p r f r bf,4. bf16\downbow( ef) | 
+     ef8-. bf16( d-0) d8-. bf16( f') f8-. bf,16( f') f8-. f16( ef) | ef8 r a,-2 r bf-2 r 
+     \bar ":..:"
+
+  \partial 8 { r8 } |
+  d8\p r ef r f r r4 | bf8 r bf r bf r r4 | r8\f ef,-. ef-. ef-. r ef-.[ ef-.] ef,16\upbow( af) |
+  af2 ef'4.-3 e16(\upbow c) | f8-. c16( f) af8-. f-. c-. c16( g') bf8-. bf-. | 
+  af2 g-3 | f8-. af,16( c) f8-. f-. bf,-.-1 df16( f) bf8-. bf-. | ef,4-.-1 g-. f8 bf,16( f') af8-. af-. |
+  
+  \mark C
+  g8-. bf,-. bf-. bf-. r8 af'-. af-. af-. | 
+  g4 r r8 d16(\p ef) ef8-. r | r e16( f) f8-. r r d16( ef) ef8-. r |
+  c8 r d r ef r r4 | 
+  r8 d16(\upbow ef) ef4.\sf c16\downbow( df) df4~ | df4. gf,8\upbow af4 r8 df8 | 
+  ef4 r8 af,8 bf4 r8 ef8 | f4 r8 bf,8 c4 r8 f8 | g4 r g8 r f r |
+  
+  \mark D
+  e4 r r2 |
+  r4 r8 af,16\p( c) c8 r r af16(\cresc c)\! | c8 r r c,16( c') c4 r8 c,16(\upbow c') |
+  c4. c,16(\downbow c') c4. c,16(\upbow c') | b4\mf( c) b( c) |
+  b( c d c) | b(\< c d\f) r | r r8 b8\f c-. c-. ef-. d-. | c-. f-. ef-. d-. r2 |
+  
+  \mark E
+  r8 g,-.\p g-. g-. r f-. f-. f-. | ef4 r r8 c'8-. c-. r | 
+  r c-. c-. r r cf-. cf-. r | cf r cf r bf r r4 | r8 g-.\f g-. g-. 
+
 }
 
 scorePartICello = \relative c {
@@ -164,3 +253,8 @@ scorePartICello = \relative c {
   \makeScoreVII \scorePartIViolinII
 }
 
+\bookpart {
+  \makeHdr "" ""
+  \makeScoreVa \scorePartIViola
+}
+