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

(load-start-state 
    '((progchord chord1 IV)
      (progchord chord2 III)
      (progchord chord3 VI)
      (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 D-flat)))
