(load-goal
    '(and (pitch chord1 soprano A-sharp 3)
          (pitch chord2 soprano B 3)
          (pitch chord3 soprano A-sharp 3)
          (pitch chord4 soprano B 3)
          (valid-chord-progression)))

(load-start-state 
    '((progchord chord1 V)
      (progchord chord2 VI)
      (progchord chord3 VII)
      (progchord chord4 I)
      (follows chord1 chord2)
      (follows chord2 chord3)
      (follows chord3 chord4)
      (range soprano C 3 A 4)
      (range alto G 2 C 4)
      (range tenor C 2 G 3)
      (range bass F 1 C 3)
      (key B)))
