(load-goal
    '(and (pitch chord1 soprano C 4)
          (pitch chord2 soprano B-flat 3)
          (pitch chord3 soprano A 3)
          (valid-chord-progression)))

(load-start-state 
    '((progchord chord1 VII)
      (progchord chord2 I)
      (progchord chord3 VII)
      (follows chord1 chord2)
      (follows chord2 chord3)
      (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-flat)))
