anchor.diff:    (rst (- 16 6))
     (chord 32 7 -0.2 t  14 9 6 4 2 0 -6))
   
  +(defpattern sax-4A (:accompany ((bassline-4A) (chords-4A)))
  +  (note 0 56 (et 26) :vibrato-delay 20 :cfg *sax-long*)
  +  (note 0  4 (et 25) :cfg *sax-config*)
  +  (note 0  4 (et 24))
  +
  +  (fast-line '(23 14 19 23 22 21 20 24))
  +
  +  (fast-line '(22 19 17 15 19 15))
  +  (rst 16)
  +
  +  (bup 26 24 :vibrato-delay 12)
  +  (note 0 8 (et 22))
  +  (rst 8)
  +  (note 0 8 (et 18))
  +  (note 0 16 (et 14)))
  +
   (defpattern bassline-4B ()
     (walking-bassline
      '(-10 -13 -14 -2
  
positive.code:   (rst 10)
    (chord 32 7 -0.2 t  10 5 2 0 -2))
  
  (defpattern bassline-4C ()
    (walking-bassline
     '(-9 -2 -5 -8
  
negative.code:   (bassline-1D))
  
  (defparameter *sax-config* '(:env nil :loop nil :duty 1 :vol 7))
  (defparameter *sax-long* '(:env nil :loop t :duty 1 :vol 7))
  
  (defun bup (note length &key (d (1- length)) vibrato-delay)
    (para
  