anchor.diff:       -2 -4 -5 -9
        -11 -8 -6 -11)))
   
  +(defpattern chords-5D ()
  +  (chord 36 7 -0.15 t 18 15 10 2 -6 -13)
  +  (rst 12)
  +  (rst 6)
  +  (chord (+ 6 6) 7 -0.2 t 12 8 1 -4 -7)
  +  (rst (- 12 6))
  +  (chord 24 7 -0.2 nil 11 7 1 8 1 -4)
  +  (chord 12 7 -0.2 t 10 5 2 -6 -8)
  +  (rst 12)
  +  (chord 12 7 -0.2 t 10 5 0 -6 -8)
  +  (rst 12)
  +  (rst 6)
  +  (chord (+ 6 6) 7 -0.2 t 11 8 4 -1 -4 -11)
  +  (rst (- 12 6))
  +  (chord 18 7 -0.2 t 10 6 4 -2 -6)
  +  (rst 6))
  +
   (defpattern section-5 ()
  -  (para (bassline-5A))
  -  (para (bassline-5B))
  -  (para (bassline-5C))
  -  (para (bassline-5D)))
  +  (para (bassline-5A)
  +        (chords-5A))
  +  (para (bassline-5B)
  +        (chords-5B))
  +  (para (bassline-5C)
  +        (chords-5C))
  +  (para (bassline-5D)
  +        (chords-5D)))
   
   ;;; ------------------------------------------------------------
   
  
positive.code:      -9 -2 -5 -9
       -8 -5 -3 -10)))
  
  (defpattern bassline-5B ()
    (walking-bassline
     '(-5 -7 -7 -2
  
negative.code:      -13 -6 -2 -1
       -7 -5 -4 -3)))
  
  (defpattern chords-5B ()
    (chord (+ 12 4) 7 -0.2 t 9 2 -1 -10 -17)
    (rst (- 12 4))
    (chord 24 7 -0.2 nil 7 2 0 -4 -14 -19)
    (chord 24 7 -0.2 nil 2 -2 -5 -14 -21)
    (chord 24 7 -0.2 nil 4 -1 -6 -11 -18)
    (chord (+ 12 6) 7 -0.2 t 6 1 -2 -6 -13)
    (rst (- 12 6))
    (rst 24)
    (rst 6)
    (chord (+ 6 6) 7 -0.3 t 7 3 0 -4 -9)
    (rst (- 12 6))
    (chord 24 7 -0.2 t 7 2 0 -4 -14))
  
  (defpattern bassline-5C ()
    (walking-bassline
     '(-2 -4 -5 -9
  